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y^ Das sollte ihr erstes Buch zum COMMODORE 64 
vL>sein. Elne sehr lelcht verstandliche Einf iihrung 
In Handhabung, Einsatz, AusbaumOgllchkelten 
und Programmierung des c 64, die kelnerlei 
vorkenntnlsse voraussetzt. Vlele Abblldungen, 
Fotos und nutzllche Anwendungsbelsplele 
erganzen den Text. Auch als Orlentlerung vor 
dem 64er Kauf gut geeignet. 64 FOR EIN- 

STEIGER. ca. 200 S., DM 29,- 

© Dieses iiber 65.000mal verkaufte Standard- 
werk zum COMMODORE 64 braucht Jeder ernst- 
hafte Anwender. Alles Liber Technik, Betriebs- 
system und fortgeschrlttene Programmierung 
des C64. Mlt ausf uhrlichem ROM-Listing, sorg- 
faltig dokumentierten Originaischaltplanen 
zum Auskiappen, zahlrelchen Abblldungen, schaltblldern. Blockdlagrammen 
und naturllch nutzllchen Programmer Mlt diesem unentbehrllchen Buch 
lernen Sle ihren C64 erst rlchtlg kennen. 64 intern, ca. 350 S., dm 69,- 

(?) Der Bestseller zur Craphlkprogrammlerung des COMMODORE 64 vom Autor 
der beriihmten Supergraphlk. Fur Einsteiger, Fortgeschrlttene und Profls. 
Brlngt alles von den Grundlagen der Graphikprogrammierung uber Sprites. 
Hlgh-Res-Craphlk, Multicolor, zelchensatzprogrammlerung bis hin zu drel- 
dlmenslonaler craphik und CAD. unzahlige Superprogramme und Routlnen 

zum Abtippen. DAS GRAPHIKBUCH ZUM COMMODORE 64, 295 S., DM 39 - 

Das Superbuch, das ihnen zelgt, was alles In Ihrem Rekorder steckt. 

inf ormiert detallliert und lelcht verstandllch iiber Datasette und cassetten- 
speicherung. Mlt absoluten Spitzenprogrammen: Autostart, Catalog (sucht 
und I3dt automatisch!), Backup von und auf Floppy, save von Spelcherberel- 
chen und dasTollste: eln neues Cassetten-Betrlebssystem mlt dem i0-20mal 
schnelleren Fasttape. AuBerdem weitere nutzllche Hlnwelse (Kopfjustage, 
Kontroll-Lautsprecher) und Programme, das cassettenbuch zum 

COMMODORE 64 und VC-20, ca. 180 S., DM 29 - 
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5) Das iiber SO.OOOmal verkaufte Standardwerk zur Floppy vc-1541. Alles 
iiber Dlskettenprogrammlerung fur Elnstelger, Fortgeschrlttene und 
Profls. Neben grundlegenden informatlonen zum DOS, zu den 
Systembefehlen und Fehlermeldungen stehen mehrere Kapitel zur 
praktischen Datelverwaltung mlt der Floppy, umfangreiches, 
dokumentlertes DOS-Listing, Dazu elne Fundgrube verschieden- 
ster Programme und Hilfsroutinen, die das Buch fur jeden 
Floppy-Anwender zur Pfllchtlekture machen. DAS GR0SSE 

FLOPPY-BUCH, ca. 320 S., DM 49- 

(§) Mlt diesem Buch melstem Sle jedes Drucker-Problem. 
Ob Sekundaradressen, Schnlttstellen, steuerzelchen, 
f ormatierte Datenausgabe Oder Graphik-Hardcopy, 
alles wird hervorragend erkiart. Selbstverstand- 
lich wieder viele niitzliche Programme zum Ab- 
tippen. AuBerdem wichtige Hllf en zur Drucker- Ar*»W& 
anpassung, ein Betriebssystem listing des 
MPS 801 und ein eigenes Kapitel zum vc-1520. 
Mit diesem Buch holen Sle das Optimum aus 
Ihrem Drucker heraus. DAS GROSSE 

DRUCKERBUCH, iiber 300 S.. DM 49,- 
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Einleitung 



Warum ein 
Sonderheft? 



Mit diesem Sonderheft fur Tips & 
Tricks-Listings wollen wir dem Anwender 
des Commodore 64 und des VC 20 Pro- 
gramme in die Hand (im wahrsten Sinne 
des Wortes) geben, die ihm in der tag- 
lichen Arbeit mit dem Computer sicher- 
lich bald unentbehrlich sein werden. 
Beim Abtippen kann praktisch kein Feh- 
ler mehr passieren, denn jede Zeile wird 
nach der Eingabe automatisch gepruft. 

Die Frage, die sich so mancher Leser 
stellen wird, namlich wozu dieses Son- 
derheft fur Tips & Tricks-Listings dienen 
soil, laBt sich relativ einfach beantwor- 
ten. All diese Programme waren sicher- 
lich irgendwann einmal im 64'er Magazin 
fur Commodore-Fans erschienen. Doch 
»leider« erscheint das 64'er nur jeden 
Monat einmal, und der Platz fur Listings 
ist beschrankt. Es ware also eine nicht 
unerhebliche Zeit verstrichen, bis alle 
Programme, die hier in kompakter und zu 
einem Thema gehorender Form zusam- 
mengefaBt sind, fur Sie zum Abtippen 
und Anwenden bereitgestanden hatten. 
Also eine Energieleistung vollbracht und 
ein Sonderheft gemacht. 

Die 64'er-Redaktion ware aber nicht 
selbige, wenn dabei nicht irgendeine 
Neuerung oder Verbesserung heraus- 
springen wurde. So sind alle Listings in 
diesem Sonderheft mit einer zeilenwei- 
sen Prufsumme versehen. Tippen Sie 
also zuallererst den Checksummer ein, 
und speichem Sie ihn ab. Nach dem Wie- 
dereinladen und Initialisieren konnen Sie 
das von Ihnen gewunschte Listing ein- 
tippen, und zwar ohne Fehler. Sollten Sie 
in einer Zeile ein verkehrtes Zeichen ein- 
gegeben haben, so macht Sie der 
Checksummer sofort darauf aufmerk- 
sam. Die Fehlersuche durch das gesam- 
te Programm konnen Sie also in Zukunft 
vergessen. 

Aber auch die oft schwierig zu entzif- 
fernden Grafik- und Steuerzeichen wur- 
den durch lesbare alphanumerische er- 
setzt. Also keine langwierige Suche 
mehr auf der Frontseite der Tastenkap- 
pen und Entscheidungsqualen, ob nun 
dicker oder halbdicker vertikaler Strich, 
kein nervenzermurbendes Nachschla- 
gen in Tabellen, welches nun das Steuer- 
zeichen fur die Funktionstaste F7 ist — 
alles wird in Klartext ausgeben. Die ge- 
nauen Spezifikationen zur Umsetzung 
der Grafik- und Steuerzeichen lesen Sie 
bitte in dem entsprechenden Artikel 
nach. Den Checksummer gibt es sowohl 
in einer Version fur den C 64 als auch fur 
den VC 20. Sicherlich, diese Methode 
des sicheren Eintippens ist nicht unsere 



Erfindung. Amerikanische Zeitschriften 
praktizieren sie seit einiger Zeit, doch 
dieses Programm ist eine Eigenentwick- 
lung, und wir fordern Sie auf, Vergleiche 
anzustellen, es ist der besten eines. 

Kommen weitere Sonderhefte? 

Es wird nicht bei dieser einen Aktion 
bleiben, soviel konnen wir Ihnen ver- 
sprechen. In der 64'er-Redaktion gehen 
taglich dutzende von Listings ein, fur.de- 
ren »Verwertung« in der Stammzeit- 
schrift einfach nicht genug Platz vorhan- 
den ist. Die genauen Erscheinungster- 
mine liegen noch nicht test, doch Sie 
konnen gespannt sein, was fur Sonder- 
hefte demnachst — in noch unregel- 
maBigen Abstanden — erscheinen 
werden. 

In unserem ersten Sonderheft sind 28 
durchweg nutzliche Programme enthal- 
ten. Es wurde einige Zeit in Anspruch 
nehmen, alle selber einzutippen. Des- 
halb, wie auch in der 64'er Stammzeit- 
schrift ublich, der Diskettenservice. 



Disketten-Service 

Programme, die sich auf die 
Floppy beziehen, also Dateiorgani- 
sation, Disksorter, ESF, Track 18, 
Diskettenmeister und Fileprotect, 
sind auf der Diskette CB 023 
(Floppy-Utilities) fur 29,90 Mark er- 
haltlich. 

Alle anderen auf der Diskette CB 
024 (Hilfsprogramme) ebenfalls fur 
29,90 Mark. 



Alle Listings wurden von den lauf- 
fahigen Versionen der Programme er- 
stellt. Fur das fehlerfreie Eintippen ha- 
ben wir gesorgt. Dennoch kann es vor- 
kommen, da(3 in einem Programm nach 
intensivem Ausnutzen aller Funktionen 
und Moglichkeiten in dem einem oder 
anderen Teil ein logischer Denkfehler 
auftaucht. Fur Hinweise die zur Ergrei- 
fung der Tater (Fehler) fuhren, ist zwar 
keine Belohnung ausgesetzt, aber sie 
werden im nachsten Sonderheft oder im 
64'er veroffentlicht. Ebenso dankbar ist 
die Redaktion fur Verbesserungs- und 
Erganzungsvorschlage zu den einzel- 
nen Listings wie zur gesamten Aufma- 
chung des Sonderheftes. 

Sollten Sie zu bestimmten Bereichen 
bessere Programme als die hier ver- 
offentlichten geschrieben haben, so 
scheuen Sie sich nicht uns dies wissen 
zu lassen. Das nachste Sonderheft 
kommt bestimmt. Es gelten dieselben 
Einsendekriterien wie fur das 64'er- 
Stammheft. (aa) 
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Checksummer 

keine 
ler mehr beim 

Abtippen von 
Listings 



Das Programm Checksummer 64 ist fur 
all die Leute gedacht, die sich manch- 
mal vor Verzweifelung »die Haare rau- 
fen« konnten. Da sitzt man mehrere 
Stunden, um ein gutes Programm aus 



dem 64'er Magazin abzutippen, und 
dann: ein Fehler in der DATA-Zeile oder 
ein falscher Buchstabe... und schon 
geht die Fehlersuche los. Hier soil der 
Checksummer 64 weiterhelfen. 



Der Checksummer 64 ist ein kleines Maschinenprogramm, 
das, wenn es aktiviert ist, Sie sofort davon unterrichtet, ob Sie 
die jeweilige Programmzeile korrekt eingegeben haben. 

1. Tippen Sie den Basic-Lader sorgfaltig ein. Es gibt zwei 
Versionen: eine fur den Commodore 64 und eine fur den VC 
20. 

2. Bevor Sie »RUN« eingeben, speichern Sie den Basic- 
Lader bitte erst ab, denn wenn Sie zum Beispiel einen Fehler 
bei den eingetippten POKE-Anweisungen gemacht haben, ist 
es moglich, daB der Rechner aussteigt. Heben Sie sich den ab- 
gespeicherten Checksummer 64 auf — Sie werden ihn immer 
wieder brauchen, wenn Sie ein Basic-Programm aus dem 
64'er Sonderheft oder in Zukunft aus dem 64'er Magazin ein- 
tippen wollen. 

3. Der Checksummer 64'uberpruft sich selbst. Wenn Sie 
einen Fehler in den DATAs gemacht haben, listen Sie die fehler- 
hafte Zeile einfach, korrigieren sie und starten dann das Pro- 
gramm neu. 

4. Nach Initialisierung des Maschinenprogramms ist der 
Checksummer 64 aktiviert. Er steht innerhalb des Betriebs- 
systems und verbraucht kein einziges Byte Speicherplatz. Es 
sei hier fur Interessierte gesagt, daB selbst alle Sprungvekto- 
ren unverandert bleiben, das Programm also mit einer Vielzahl 
von anderen Programmier-Spracherweiterungen wie etwa Ex- 
basic Level II problemlos zusammenarbeitet. Achten Sie aber 
darauf, daB bestimmte Spracherweiterungen das hinter dem 
ROM liegende RAM fur Hires-Grafiken benutzen. Wird zum 
Beispiel eine Hires-Grafik von Simons Basic aus angespro- 
chen, so wird der Checksummer 64 zerstort. 

5. Wenn Sie den Checksummer 64 zwischenzeitlich nicht 
benutzen, konnen Sie ihn jederzeit mit »POKE 1, 55« desakti- 



vieren. Auch durch Drucken der Run-Stop- und der Restore- 
Taste wird der Checksummer 64 desaktiviert. Wollen Sie, daB 
der Checksummer 64 auch noch nach Drucken dieser Tasten- 
kombination erhalten bleibt, so geben Sie bei aktiviertem 
Checksummer 64 »POKE 64982, 53«ein. Der Checksummer 
64 ist dann nur durch »POKE 1, 55« abschaltbar. 

Wollen Sie den Checksummer 64 wieder einschalten, so 
geben Sie bitte »POKE 1, 53« ein. 

Das Maschinenprogramm bleibt solange erhalten, bis der 
Computer ausgeschaltet ; oder wenn von anderen Program- 
men auf das hinter dem ROM liegende RAM zugegriffen wird. 

6. Eine Checksumme wird nur dann ausgegeben, wenn der 
Commodore 64 (VC 20) eindeutig erkennt, daB Sie eine Zeile 
bestehend aus der Zeilennummer und zumindestens einem al- 
phanumerischen Zeichen eigegeben haben. Ansonsten rea- 
giert der Commodore 64 normal. 

Hinweis: Wenn Sie bei aktiviertem Checksummer 64 ein Pro- 
gramm mit »LOAD« in den Speicher holen, wird auch eine 
Checksumme ausgegeben. Dies liegt jedoch an rechnerinter=- 
nen Routinen und hat keine weitere Bedeutung, stellt insbe- 
sondere keine Gefahr fur das geladene Programm dar, da alle 
Pointer richtig gesetzt werden. 

Nach Eingabe von RUN wird zunachst einmal das ROM in 
das RAM des Commodore 64 verschoben, wonach der Basic- 
Interpreter modifiziert wird. Dadurch hat man den Vorteil, trotz 
einer zusatzlichen Routine das gesamte RAM des Rechners 
zur Verfugung zu haben. Nach ordnungsgemassem Ablauf 
des Programms konnen Sie sofort mit Eingaben beginnen. 
Fur Maschinensprache-Spezialisten weise ich darauf hin, daB 
ich ausnutze, daB die Einschaltmeldungen des Rechners nur 
nach einem Reset generiert wird. Der Textbereich, in dem die 
Meldung steht, wird von dem erzeugten Maschinenprogramm 
uberschrieben. 

Alle veroffentlichten Listings sind mit einer Checksumme 
versehen, die am Ende jeder Programmzeile steht. Diese 
Checksumme steht zwischen < und > . Sie wird beim Eintip- 
pen des Programms nicht mit eingegeben. Die Zahl zwischen 
den beiden Zeichen stellt lediglich eine Information fur Sie dar. 
Wenn Sie diese Checksumme dennoch mit eintippen, werden 
Sie schnell bemerken, daB Sie etwas falsch gemacht haben. 
Bei aktiviertem Checksummer 64 wird namlich nach Eingabe 
einer Basic-Zeile, die mit Return beendet wird, in die linke obe- 
re Bildschirmecke die Checksumme eingeblendet, die mit der 
Summeausdem veroffentlichten Listing ubereinstimmen muB. 
Ist das nicht der Fall, haben Sie die Zeile anders eingegeben, 
als sie im Listing dargestellt ist. Vergessen Sie also bitte nicht, 
daB die am Ende einer Zeile in < und > sfehende Prufsumme 
nicht mit eingegeben werden darf. 

Der Checksummer 64 ist so ausgelegt, daB er abhangig von 
der Zeilennummer und dem Text der Zeile eine Checksumme 
ausgibt. Beim Bilden dieser Checksumme werden Spaces 
(Leertaste) uberlesen, was fur Sie bedeutet, das es egal ist, 
wieviel Leerzeichen Sie zwischen den Worten lassen, da Sie 
fur den Programmablauf ohnehin keine Bedeutung haben. 
Aber manchmal ist das richtige Setzen von Leerzeichen doch 
wichtig, besonders innerhalb von Strings (Zeichenketten), die 
gedruckt werden sollen. Seien Sie deshalb besonders genau 
bei Leerzeichen, die innerhalb von Anf uhrungszeichen stehen, 
denn meistens ermoglichen nur die richtig gesetzten Spaces 
eine sinnvolle Textausgabe auf dem Bildschirm. 

Beachten Sie auch, daB es durchaus erlaubt ist, Abkurzun- 
gen fur die Commodore-Befehlsworter zu verwenden. So fuhrt 
die Eingabe von » ? « als Kurzschreibweise fur »PRINT« nicht et- 
wa zu einem Checksummen-Fehler, sondern wird korrekt ver- 
arbeitet und dementsprechend die Checksumme generiert. 
Nachdem Sie ein Listing eingegeben haben, sollten Sie es aus 
Sicherheitsgrunden vor dem Starten abspeichern. Sie brau- 
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Checksummer 



Oder doch S?ll 




chen hierfur jedoch nicht den Checksummer 64 zu desak- 
tivieren. 

Hinweise zum Lesen von Listings 

Die Listings haben sich ein wenig im Ausdruckformat veran- 
dert, urn Ihnen das Eingeben von Programmen wesentlich zu 
erleichtem. 

— Cursorsteuerzeichen und andere Steuerzeichen, die 
schwer zu lesen sind, werden von nun an in Klartext in speziel- 
len Klammern gesetzt. 

Tritt mehrmals hintereinander dasselbe Steuerzeichen auf, 
so wird diese Steuerzeichen-Sequenz zusammengefasst, in- 
dem zuerst das Steuerzeichen und dann die Anzahl der Wie- 
derholungen dieses Steuerzeichens in Klartext ausgegeben 
wird. 

— alle Commodore-Grafikzeichen, die uber Shift zu errei- 
chen sind, werden nicht mehr als Grafikzeichen, sondern als 
Klartextzeichen dargestellt. Dabei wird aus dem Zeichen, das 
Sie auf dem Bildschirm sehen, wenn Sie die Tastenkombina- 
tion Shift und »A« ansprechen, wieder ein »A«. Um dieses »A« 
vom normalen »A« unterscheiden zu konnen, ist es etwas klei- 
ner als das gewohnliche »A« und ist auBerdem mit einem Unter- 
streichungszeichen versehen. Diese Vereinbarung gilt auch 
fur samtliche andere Commodore-Grafikzeichen, die uber 
Shift zu erreichen sind. 

— entsprechendes gilt fur samtliche Commodore- 
Grafikzeichen, die uber die Commodore-Taste zu erreichen 
sind. Hier wird jedoch das jeweilige Klartextzeichen nicht un- 
terstrichen, sondern uberstrichen. 



Erlauterungen zu den Cursorsteuerzeichen 

Cursorsteuerzeichen werden, wie schon oben erwahnt, um- 
definiert. Sie sehen hier eine Liste der moglichen Ausdrucke, 
die fur ein Cursorsteuerzeichen im Listing auftauchen konnen. 
Gleichzeitig ersehen Sie aus der Tabelle, welche Taste bezie- 
hungsweise Tastenkombination zu drucken ist, damit dieses 
Steuerzeichen richtig in Ihr Programm ubernommen wird. Be- 
achten Sie, daB Sie die Steuercodes nur dann als reverses Zei- 
chen sehen konnen, wenn der Rechner im »Quote-Modus« ar- 
beitet, das heiBt er sich im GansefuBchenmodus befindet. 



Wenn Sie lesen ! 


drucken Sie 


CTRL steht fur Control -Taste, so bedeutet[CTRL-A], daf3 Sie die 


Control-Taste und die Taste »A« drucken mussen. Im folgenden steht: 


[down] ! 


Taste neben rechtem Shift, Cursor unten 


[up] ! 


Shift-Taste & Taste neben rechtem Shift, Cursor hoch 


[clear] ! 


Shift-Taste & 2. Taste ganz rechts oben 


[inst] ! 


Shift-Taste & Taste ganz rechts oben 


[home] ! 


2. Taste von ganz rechts oben 


[del] ! 


Taste ganz rechts oben 


[right] ! 


Taste ganz rechts unten 


[left] ! 


Shift-Taste & Taste unten rechts 


[space] ! 


Leertaste 


[f1] ' ! 


grauer Tastenblock rechts 


[f3]. ! 


grauer Tastenblock rechts 


[f5] ! 


grauer Tastenblock rechts 


[f7] ! 


grauer Tastenblock rechts 


[f2] ! 


grauer Tastenblock rechts & Shift 


[f4] ! 


grauer Tastenblock rechts & Shift 


[f6] 


grauer Tastenblock rechts & Shift 


[f8] i 


grauer Tastenblock rechts & Shift 


[return] 


Shift-Taste & Return 


[black] 


Control-Taste & 1 


[white] 


Control-Taste & 2 


[red] 


Control-Taste & 3 


[cyan] 


Control-Taste & 4 


[purple] 


Control-Taste & 5 


[green] 


Control-Taste & 6 


[blue] 


Control-Taste & 7 


[yellow] 


Control-Taste & 8 


[rvson] 


Control-Taste & 9 


[rvoff] 


Control-Taste & 


[orange] 


Commodore-Taste & 1 


[brown] 


Commodore-Taste & 2 


[lig.red] 


Commodore-Taste & 3 


[grey 1] 


Commodore-Taste & 4 


[grey 2] 


Commodore-Taste & 5 


[lig.green] 


. Commodore-Taste & 6 


[lig.blue] 


f Commodore-Taste & 7 


[grey 3] 


f Commodore-Taste & 8 


Wenn Sie sich er 


st einmal an die in Klartext geschriebenen Steuerzei- 


chen gewohnt he 


3ben, werden Sie den Vorteil dieser Schreibweise er- 


kennen. Derzud 


em jeweiligen Steuerzeichen gehorende Klartext ist so 


verfa(Bt,daBSiel€ 


HCht die Taste beziehungsweise die Tastenkombination 


finden, die Sie dr 


ucken mussen. 
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Checksummer VC 20 



Der Checksummer VC 20 ist im Prinzip genauso aufge- 
baut wie der Checksummer 64. Da beim VC 20 jedoch nicht 
die Moglichkelt besteht, das ROM softwaremassig zu modifi- 
zleren, muBte ein anderer Weg als beim Commodore 64 ge- 
wahlt werden, urn die Checksumme zu generieren. 

In ihrer Funktionsweise unterscheiden sich der Checksum- 
mer VC 20 und der Checksummer 64 nicht. Es gelten folgen- 
de Sonderregelungen bei der Benutzung des Checksummer 
VC 20: 

— da der Basic-Bereich nicht bel^gt werden soil, ist das Pro- 
gramm im Kassettenpuffer abgelegt. 

— angeschaltet wird der Checksummer VC 20 mit »SYS 
955« 

— Abschaltung des Checksummer VC 20 wird mit »SYS 
58459« vollzogen 

ACHTUNG: Nehmen Sie keine Kassetten-Operationen vor, 
wenn der Checksummer VC 20 eingeschaltet ist. Da das Be- 
triebssystem den Kassettenpuffer mit Daten belegt, kann der 
Checksummer VC 20 uberschrieben werden, was zur Folge 
hat, daB sich der Rechner bei aktiviertem Checksummer VC 
20 »aufhangt«. Wollen Sie deshalb ein Programm auf (von) 
Kassette abspeichem (laden), so mussen Sie erst den Check- 
summer VC 20 abschalten (SYS 58459). 

Daraufhin kann der Kassettenpuffer mit Daten uberschrie- 
ben werden, ohne daB der Rechner »aussteigt«. 

Als Sicherung wird bei der Initialisierung gepruft, ob das zu- 
letzt angesprochene Peripherie-Gerat der Kassettenrecorder 
war. 1st das der Fall, so werden die Betriebssystemroutinen 
LOAD und SAVE fur die Benutzung gesperrt. Der Rechner mel- 
det bei Aufruf einer dieser beiden Routinen READY, ohne wei- 
tere Aktionen durchzufuhren. Diese Sicherung kann man nach 
derTipparbeitaufheben, wenn man den Checksummer VC 20 
mit SYS 58459 abschaltet. Dadurch wird der Kassettenpuffer 
fur andere Daten freigemacht. Weiterhin wird dann durch 
gleichzeitiges Drucken der Tasten »Run-Stop & Restore* er- 
reicht, daB die Betriebssystemroutinen LOAD und SAVE wie- 
der eingerichtet werden. 

— Bei Benutzung einer Diskettenstation brauchen Sie nicht 
darauf zu achten, daB bei LOAD beziehungsweise SAVE der 
Checksummer VC 20 uberschrieben wird, da der Kassetten- 
puffer fur die Diskettenstation normalerweise nicht genutzt 
wird. Deshalb konnen Sie die beiden Routinen weiterhin nor- 
mal nutzen, sofern der Rechner bei der Initialisierung des 
Checksummer VC 20 feststellt, daB das zuletzt angesproche- 
ne Peripherie-Gerat nicht der Kassettenrecorder war. 

— bedingt durch den anderen Auf bau des Checksummer VC 
20 wird anders als beim Checksummer 64 nach der LOAD- 
Routine keine Checksumme ausgegeben. 

— wird eine Zeile geloscht, also eine Zahl zwischen und 
63999 eingegeben, und danach Return gedruckt, so wird 
eine Checksumme ausgegeben, die aber keine Bedeutung 
hat. 

Viel SpaB beim Eintippen von Programmen mit dem neuen 
Checksummer! 

(F Lonczewski / gk) 
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10 REM ******************************* 
20 REM * * 

30 REM * CHECKSUMMER 64 * 

40 REM * * 

50 REM * 64*ER * 

60 REM * * 

70 REM * COMMODORE 64 * 

80 REM * * 
90 REM ******************************* 

1 00 PR I NT " CCLE AR , SPACE 1 3 , RVSON 3CHECKSUMMER 

CSPACE 364 CRVOFF 3" <025> 

110 PRINT <007> 

120 PRINT" CDOWN2,SPACE4 3ICHCSPACE3ARBEITE! 

CSPACE3BITTECSPACE3ETWASCSPACE3GEDULD. M <071 > 
130 FOR 1=40960 TO 49151: POKE I ,PEEK ( I > : NEXT 

<007> 
140 FOR 1=57344 TO 65535: POKE I ,PEEK( I > :NEXT 

<025> 
150 POKE 1,53: POKE 42289,96: POKE 42290,228 <001> 
160 FOR 1=58464 TO 58554: GOSUB 220: POKE I, A 

<184> 
170 PS=PS+A+1:NEXT I ' <109> 

180 IF PSOH1B7 THEN PRINT"PRUEFSUMMENFEHLER 

CSPACE 3 ! " : END < 1 80 > 

190 PRINT" CDOWN4,SPACE93CHECKSUMMER CSPACE 3 

AKTIVIERT." <247> 

200 PR I NT " CD0WN2 3 AUSSCHALTEN CSPACE 3 

: CSPACE 3PQKE 1 , 55 " < 050 > 

210 PRINT" CDOWN3ANSCHALTENCSPACE23 

: CSPACE 3POKE 1,53": NEW <171> 

220 READ A*: IF LEN(A*)<>2 THEN PRINT" TIPPFEHLER 

CSPACE DIN CSPACE 3 ZEILE "PEEK (63) +PEEK (64) *256 

:END <201> 

230 A1=ASC(A*) :A2=ASC (RIGHT* (A$,l) ) <216> 

240 IF AK48 OR Al>57 THEN IF AK65 OR Al>70 TH 

EN 310 <130> 

250 IF A2<48 OR A2>57 THEN IF A2<65 OR A2>70 TH 

EN 310 <144> 

260 IF Al>64 THEN A 1=A 1-55: GOTO 280 <204> 
270 IF AK58 THEN Al=Al-48 <128> 

280 IF A2>64 THEN A2=A2-55: GOTO 300 <220> 
290 IF A2<58 THEN A2=A2-48 <151> 

300 A=A1*16+A2: RETURN <138> 

310 PRINT"UNGUELTIGER CSPACE 3HEXCODECSPACE3IN 

CSPACE3ZEILE"PEEK(63)+PEEK(64)*256:END <021> 
320 DATA A0,02,A9,00,B5,02,B1,5F <098> 

330 DATA F0,0F,C9,20,D0,03,C8,D0 <146> 

340 DATA F5,18,65,02,85,02,4C,6E <126> 

350 DATA E4,C0,04,30,F1,C6,D6,A5 <169> 

360 DATA D6,48,A2,03,A9,20,9D,01 <150> 

370 DATA 04,BD,B7,E4,20,D2,FF,CA <238> 

380 DATA 10,F2,A6,02,A9,00,20,CD <169> 

390 DATA BD,A9,3E,20,D2,FF,68,85 <245> 

400 DATA D6,20,6C,E5,A9,8D,20,D2 <229> 

410 DATA FF,4C,80,A4,5C,48,20,C9 <244> 

420 DATA FF,AA,68,90,01,8A,60,09 <234> 

430 DATA 3C,12,13 <199> 



10 REM**************** 
20 REM* * 

30 REM* CHECKSUMMER * 
40 REM* VERSION VC20 * 
50 REM* * 

60 REM**************** 



<057> 
<247> 
<056> 
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70 PRINT" CCLEAR,SPACE2,RVSON3CHECKSUMMERCSPACE2 3 
VC-20CRVOFF3" <1B5> 

80 PRINT <233> 

90 PRINT" C DOWN 3E I NEN CSPACE 3MOMENT, CSPACE3 

BITTE..." <181> 

100 FOR 1=827 TO 993: GOSUB 180: POKE I, A <177> 

110 PS=PS+A+1:NEXT I <049> 

120 IF PSO20612 THEN PRINT" C DOWN 3 

PRUEFSUMMENFEHLER CSPACE 3 ! " : END < 130> 

130 SYS 955: PRINT "CHECKSUMMER CSPACE 3 AKT I V IERT. " 

<242> 
140 PRINT ,, ANCSPACE3:SYS955 ,, <212> 

150 PRINT" CDOWN3AUS: SYS58459, CSPACE 3BEI CSPACE3 
CAS-CSPACE43SETTECSPACE3ZUSAETZLICHCSPACE5 3 
RUN/STOP CSPACE 3& CSPACE 3RESTORE" <068> 

160 PRINT" CDOWN3BEI CSPACE 3AKT I VIERTEM CSPACE 3 



CHECK-SUMMERCSPACE3KEIN 



II 



<105> 



170 PR I NT " C SPACE 3CASSETTEN-BETR I EB CSPACE 3 ( LOAD , 
CSPACE 3SAVE) CSPACE2 3ERLAUBT ! " : NEW <051 > 

180 READ A*: IF LEN(A*)<>2 THEN PR I NT " T I PPFEHLER 
CSPACE3INCSPACE3ZEILE H PEEK(63)+PEEK(64)*256 

:END <161> 
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190 A1=ASC ( A*) i A2=ASC (RIGHT* (A* , 1 ) ) 
200 IF AK48 OR Al>57 THEN IF AK65 

EN 270 
210 IF A2<48 OR A2>57 THEN IF A2<65 

EN 270 
220 IF Al>64 THEN A 1=A 1-55: GOTO 240 

230 IF AK58 THEN Al=Al-48 
240 IF A2>64 THEN A2=A2-55: GOTO 260 
250 IF A2<58 THEN A2=A2~48 
260 A=A1*16+A2: RETURN 

270 FR I NT " UNGUELT I GER CSPACE 3HEXCODE 
CSPACE3ZEILE"PEEK(63)+PEEK(64) 

280 DATA 20, 5F, 03,86, 7A, 84,78,20 
290 DATA 73,00,AA,F0,F3,A2,FF,86 
300 DATA 3A,90,0A,A2,00,86,FF,20 
310 DATA 79,C5,4C,E1,C7,A2,01,B6 
320 DATA FF,4C,9C,C4,A6,FF,E0,01 



<176> 
OR Al>70 TH 

<095> 
OR A2>70 TH 

<109> 
<159> 
<087> 
<184> 
<110> 
<098> 
CSPACE 3 IN 

:END <237> 
<061> 
<130> 
<097> 
<127> 
<199> 



330 
340 



360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



A9 

C9 



F0,03,4C,60,C5,A0,02,... 
00,85,FE,B1 ,5F,F0,0F,C9 
20,D0,03,C8,D0,F5,18,65 
FE, 85, FE,4C, 76, 03,00,04 
30,F1,C6,D6,A5,D6,48,A2 
03,A9,20,9D,01 ,04,BD,B7 
03,20,D2,FF,CA,10,F2,A6 
FE,A9,00,20,CD,DD,A9,3E 
20, D2,FF, 68, 85,06,20,87 
E5,A9,8D,20,D2,FF,A2,00 



<125> 
<186> 
<141> 
<193> 
<198> 
<180> 
<217> 
<016> 
<220> 
<003> 
<002> 
<249> 
<235> 
<239> 
<007> 
<113> 






: Multi 



ramm 



Mehr als 30 

Programme 

gleichzeitig im 







Wer hat nicht schon den Wunsch ver- 
spiirt, mehr als ein Programm gleich- 
zeitig im Speicher zu haben. M-P£ er- 
laubt sogar bis zu 32 verschiedene 
Basic-Programme. Dafiir stehen 42 
KByte(!) freier Basic-Speicher zur Ver- 
fiigung. Jedes Programm kann unab- 
hangig von einem anderen aufgerufen 



und gestartet werden. Zu jeder Zeit be- 
halten Sie den Uberblick liber die im 
Computer stehenden Programme. 
Auch Directories lassen sich perma- 
nent im Speicher halten. Eine tolle 
Sache. 



M-P-S bietet die Moglichkeit, mehr als nur ein Basic- 
Programm im Speicher zu halten. Vorgesehen ist eine Verwal- 
tung von maximal 32 Basic-Programmen, wobei die Anzahl der 
tatsachlich speicherbaren Programme aber auch von deren 
Umfang abhangt. Jedes Programm erhalt eine Kennummer, 
die zusammen mit den Programmnamen, Anfangs- und End- 
adresse in einem Inhaltsverzeichnis abgelegt wird. Durch die 
Eingabe der Kennummer kann dann jedes einzelne Basic- 
Programm aufgerufen werden. Fur die Basic-Programme ste- 
hen etwa 42-KByte zur Verfugung. Dies wurde dadurch er- 
reicht, daB Tabellen und Programmspeicher teilweise in den 
RAM-Bereich unter dem ROM gelegt wurde. 

Urn die Lange von M-P-S in Grenzen zu halten, wurde die 
Lange der Befehlsworter auf drei Buchstaben begrenzt. 

Die Befehle: 

1. OFF 

2. STO (Store) 

3. REC (Recall) 

4. DSP (Display) 

5. SPA (Space) 

6. DEL (Delete) 




1. OFF 

OFF bewirkt ein Abschalten von M-P-S. Mochte man anschlie- 
Bend M-P-S wieder aktivieren, so gibt es zwei Moglichkeiten: 
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a) Die Eingabe von SYS 51200 bewirkt einen Kaltstart. Alle 
Pointer werden neu gesetzt. Das Inhaltsverzeichnis wird 
geloscht. 

b) Die Eingabe von SYS 51297 bewirkt einen Warmstart. In- 
haltsverzeichnis unci Pointer bleiben erhalten. 

2. STO"Programmname",X 

Mit STO wird ein Basic-Programm in einen bestimmten RAM- 
Bereich abgespeichert (verschoben). Der Programmname 
dart maximal 16 Zeichen lang sein. X ist eine Zahl zwischen 
und 31 . Sie dient als Trennmarke fur die einzelnen Programme. 
Am besten fangt man bei an und erhoht X mit jedem weiteren 
Programm urn 1. 

Beispiel: 
STO'Test 1",0 
STO'Test 2"1 
STO'Test 3",2 

3. RECN 

Mit REC kann ein abgespeichertes Programm aufgerufen wer- 
den. N ist hierbei die Kennummer {siehe 4. DSP). Anschlie- 
Bend kann man LIST oder RUN eingeben. 
Beispiel: 
RECO 
REC1 
REC2 



4. DSP 

DSP gibt das Inhaltsverzeichnis der im Speicher stehenden 
Programme auf dem Bildschirm aus. Dabei erscheinen Kenn- 
nummer, Programmname und belegter Speicherbereich. 
Beispiel: 

0. >Test 1« $C7FF-$C600 

t t t t 

Kennummer Name Anfangs- End- 

adresse adresse-M 



5. SPA 

SPA gibt die Anfangs(immer $0801)- und Endadresse des 
gerade lauffahigen Basicgrogramms, sowie dessen Lange in 
Bytes an. Man kann so feststellen, ob das Programm noch ver- 
schoben werden kann. 
Beispiel (nach NEW): 
SPA 
$0801-$0803/3Bytes 



6. DEL 

DEL loscht das Inhaltsverzeichnis und setzt die Pointer neu. 
Solange man mit STO keine neuen Programme eingibt, kann 
man die alten noch mit REC aufrufen. 



Hinweise: 

Folgendes sollte bei der Benutzung von M-P-S beachtet 
werden: 

1. Die Basic-Programme, die abgespeichert und spater auch 
gestartet werden sollen, durfen keine Maschinenprogram- 
me enthalten. Ansonsten besteht die Moglichkeit, daB das 
Programm M-P-S selbst, Tabellen oder Basic-Programme 
uberschrieben werden und so nicht mehr lesbar sind. 

2. Bei REC durfen nur tatsachlich vorhandene Kennummem 
eingegeben werden. Gibt man Nummern ein, zu denen 
kein Programm vorhanden ist, so fuhrt dies meist zum 
Systemabsturz. 



Adressenbelegung: 

M-P-S belegt: $C800-$CC8F (1167 Bytes) 
Befehl OFF:$C8F1-$C8FD 
SPA:$C930-$C97E 
STO:$C97F-$CA77 
' DSP:$CA78-$CB4D 
REC:$CB4E-$CBDD 
DEL:$CC24-$CC5C 

Arbeitsspeicher und Pointer:$CC90-$CC99 

Speicher fur Programmnamen ab:$F000 
Tabelle der Anfangs- und Endadressen ab:$F800 

Speicher fur Basic- Programme ab:$C7FF (abnehmend) 

(Kasem Mossavi / gk) 
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REM ********************* 

REM * M-P-S * 

REM * * 

REM * K- MOSSAVI * 

REM * KIRCHWEG 24 * 

REM * 3008 GARBSEN 1 * 

REM * TEL- 05137/71767 * 

REM ******************** 
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<046> 
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PRINT" CCLEARDMOMENTCSPACEDBITTE. . . •' 
FDR 1=51200 TO 52367 
READ A: POKE I,A:L=L+A 
NEXT I 

IF L<> 157782 THEN PRINT"FEHLERCSPACE3IN 
CSPACE DDATAS C SPACE 3 ! " S END 

60 SYS 51200 

61 DATA 169 y v 141, 32,208, 141, 33, 208, 169, 1,141, 
134,2,169,23,160,200,32,30 <250> 

62 DATA 171,76,93,204,147,32,32,32,32,32,32,42, 
42,42,32,77,85,76,84,73,45 <081> 

63 DATA 80,82,79,71,82,65,77,77,45,83,89,83,84, 
69,77,32,42,42,42,13,13,32 <11B> 

DATA 32,32,32,32,32,32,32,32,32,40,67,41,32, 
66,89,32,75,46,77,79,83,83 <083> 

DATA 65,86,73,32,32,49,57,56,52,13,13,13,0, 
169,110,160,200,141,4,3,140 <053> 

66 DATA 5,3,76,116,164,162,0,160,0,185,0,2,221, 
190,200,240,17,189,190,200 <046> 

67 DATA 208, 3, 76, 187, 200, 1B5, 0,2, 232, 232, 232, 76, 
117,200,232,200,185,0,2,221 <145> 
DATA 190,200,240,5,202,136,76,130,200,232, 
200,185,0,2,221,190,200,240 <235> 
DATA 7,202,202,136,136,76,130,200,189,215, 
200, 141 , 185,200,232, 189,215 <017> 
DATA 200, 141 , 186,200,76,48,201 ,76, 124, 165,79, 
70,70,83,80,65,83,84,79,68 <163> 
DATA 83,80,82,69,67,68,69,76,69,88,67,0,0,0, 
0,0,0,241,200,0,48,201,0,127 <175> 
DATA 201,0,120,202,0,78,203,0,36,204,0,99, 
204,0,255,255,0,169,124,160 <250> 

73 DATA 165,141,4,3,140,5,3,76,116,164,72,74,74, 
74,74,32,22,201,170,104,41 <117> 

74 DATA 15,32,22,201,72,138,32,210,255,104,76, 
210,255,24,105,246,144,2,105 <106> 

75 DATA 6,105,58,96,169,36,32,210,255,165,253, 
32,254,200,165,254,32,254,200 <188> 

76 DATA 96,169,13,32,210,255,169,1,162,8,133, 
254,134,253,32,32,201,169,45 <090> 

77 DATA 32,210,255,165,45,166,46,133,254,134, 
253,32,32,201,169,32,32,210 <026> 

78 DATA 255,169,47,32,210,255,169,32,32,210,255, 
165,46,56,233,8,133,98,165 <162> 

79 DATA 45,133,99,32,209,189,169,119,160,201,32, 
30,171,76,116,164,32,66,89 < 166> 

80 DATA 84,69,83,13,0,230,122,230,122,230,122, 
169,34,32,255,174,174,144,204 <178> 

81 DATA 172,145,204,232,208,1,200,142,164,201, 
140,165,201,160,0,185,4,2,201 <145> 

82 DATA 34,240,16,141,11,240,238,164,201,208,3, 
238,165,201,200,192,16,208 <070> 

83 DATA 233,152,24,101,122,133,122,230,122,32, 
253,174,32,158,183,224,32,144 <165> 

84 DATA 3,76,72,178,173,164,201,172,165,201,141, 
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213,201,140,214,201,142,11 <117> 

DATA 240, 169, 1 , 141 ,238,201 , 169,8, 141 ,239,201 , 
173,146,204,174,147,204,141 <192> 

DATA 241,201,142,242,201,173,249,10,141,68, 

194,236,238,201,208,3,238,*239 <195> 

DATA 201,206,241,201,208,3,206,242,201,173, 
238,201,197,45,208,227,173 <036> 

88 DATA 239,201,197,46,208,220,174,148,204,172, 
149,204,173,146,204,142,33 <107> 

DATA 202,140,34,202,141,4,248,232,208,1,200, 
173,147,204,142,49,202,140 <066> 

DATA 50,202,141,5,248,232,208,1,200,173,241, 
201 , 142,65,202, 140,66,202 <015> 

DATA 141,6,248,232,208,1,200,173,242,201,142, 

81,202,140,82,202,141,7,248 <172> 

DATA 232,208,1,200,142,148,204,140,149,204, 
173,241,201,174,242,201,141 <072> 

93 DATA 146,204,142,147,204,173,164,201,174,165, 
201 , 141 , 144,204, 142, 145,204 <186> 

DATA 76,116,164,169,13,32,210,255,169,1,162, 

240, 141 , 161 ,202, 142, 162,202 <139> 

DATA 162, 248, 142, 20B, 202, 162, 0,138, 141, 207, 

202,72,169,0,32,205,189,32 <046> 

DATA 222,203, 120, 169,53, 133, 1 , 173, 1 ,240, 162, 
55,134,1,88,201,255,208,3 <035> 

DATA 76,61,203,201,32,144,14,32,210,255,238, 

161,202,208,3,238,162,202 <035> 

DATA 76,155,202,169,34,32,210,255,32,238,203, 

120, 169,53, 133, 1 , 173,0,248 < 151 > 

DATA 133,254,174,207,202,172,208,202,232,208, 

1,200,142,228,202,140,229 <086> 

100 DATA 202,173,5,248,133,253,32,247,203,169, 
45,32,14,204,174,228,202,172 <108> 

101 DATA 229,202,232,208,1,200,142,1,203,140,2, 
203,173,6,248,133,254,174,1 <076> 

102 DATA 203,172,2,203,232,208,1,200,142,22,203, 
140,23,203,173,7,248,133,253 <171> 

103 DATA 232,208,1,200,142,207,202,140,208,202, 
32,247,203,104,168,200,152 <026> 

104 DATA 72,170,169,13,32,5,204,238,161,202,208, 
3,238,162,202,76,147,202,169 <213> 

105 DATA 20,32,210,255,32,210,255,32,210,255,32, 
210,255,76, 116,164,32,84,203 <18B> 

106 DATA 76,116,164,230,122,230,122,230,122,32, 
158,183,134,251,169,4,133,252 <202> 

107 DATA 169,0,133,253,162,8,70,252,144,3,24, 
101,251,106,102,253,202,208,243 <191> 

108 DATA 165,253,141,136,203,169,248,141,137, 
203,160,0,120,169,53,133,1,185 <162> 

109 DATA 0,248,153,150,204,200,192,4,208,245, 
169,54,133,1,88,173,150,204,141 <208> 

110 DATA 174,203,173,151,204,141,175,203,169,1, 
141 , 177,203, 169,8, 141 , 178,203 <220> 

111 DATA 173,60,197,141,196,10,206,174,203,208, 
3,206,175,203,238,177,203,208 <226> 

112 DATA 3,238,178,203,173,174,203,205,152,204, 
208,226,173,175,203,205,153 <122> 

113 DATA 204,208,218,173,177,203,133,45,32,28, 
204,133,46,96,169,46,32,210 <081> 

114 DATA 255,169,32,32,210,255,169,34,32,210, 
255,96,169,32,32,210,255,32,210 <221> 

115 DATA 255,96,169,55,133,1,88,32,32,201,120, 
169,53, 133, 1 ,96, 160,55, 132, 1 < 126> 

116 DATA 88,32,210,255,96,160,55,132,1,88,32, 
210,255,120,169,53,133,1,96,160 <227> 

117 DATA 55,132,1,173,178,203,96,32,42,204,76, 
1 16 , 164, 169 ,0, 141 , 144,204, 141 < 172> 

118 DATA 148,204,169,240,141,145,204,169,255, 
141 , 146,204, 169, 199, 141 , 147,204 <246> 

119 DATA 169,248,141,149,204,160,0,169,255,153, 
0,240,153,0,241,153,0,242,153 <214> 

120 DATA 0,243,153,0,244,200,208,238,96,32,42, 
204,76,107,204,32,84,203,169 <121> 

121 DATA 138,76,231,167,162,1,160,6,24,32,240, 
255,160,0,169,61,32,210,255 <071> 

122 DATA 200,192,29,208,248,169,13,32,210,255, 
32,210,255,32,210,255,32,210 <114> 

123 DATA 255,76,97,200 <141> 




organisation 



Dieses Proqramm ist eine echte Hilfe 



fur den C64-Benutzer, der sich einmal 



etwas naher mit d< 
ganisation des 1 
schaftigen mochte. 



Laufwerks be- 



Die Idee zu diesem Programm kam mir, als ich nach einem 
»SCRATCH«-Befehl mit Bedauern feststellen muGte, ein in mu- 
hevoller Arbeit erstelltes Programm versehentlich mitgeloscht 
zu haben. Doch glucklicherweise hatte ich kurz zuvor erfahren, 
wie man ein geloschtes File auf der 1541-Floppy regeneriert: 

Filetyp im Directoryeintrag im Direktzugriff wieder setzen 
und anschlieBend ein »VALIDATE« ausfuhren. 

Es begann also die Suche nach besagtem Byte, sowie die in- 
tensive Erkundung der Dateiorganisation und des Direkt- 

zugriffs. 

Nun, nach mehreren Monaten Arbeit liegt endlich das fertige 
Programm vor. Es druckt eine Vielzahl von Floppy-lnformatio- 
nen auf einem Epson-Drucker aus. Auf eine Bildschirmausga- 
be wurde aus Grunden der Ubersichtlichkeit verzichtet. 



Was bietet das Programm 



Ganze Dateien aufzeigen: 

Hierbei fragt das Programm nach dem gewunschten Filena- 
mes Bei korrekter Eingabe werden folgende Informationen 
ausgedruckt: Filename, Filetyp, Filelangein Blocks, Spur, Sek- 
tor, laufende Blocknummer und naturlich der Inhalt samtlicher 
von dieser Datei belegten Blocke in ASCII-Codes und -Zeichen 
(je 8 Byte). Eine Seite wird mit genau 2 Blocks beschrieben, 
dann erfolgt automatisch ein Seitenvorschub. Bei ungerader 
Blockanzahl kann ein Seitenvorschub auch vom Benutzer aus- 
gelost werden. Bei Dateiende springt das Programm wieder 
ins Menu zuruck. 

Einzelne Blocke ausgeben: 

Dieser Modus unterscheidet sich vom vorigen dadurch, da6 
hier bestimmte Sektoren ausgewahlt werden konnen. Und 
dies auf zwei verschiedene Arten: 

1. Eingabe von Spur und Sektor: 

Geben Sie, durch Komma getrennt, Spur- und Sektomum- 
mer des auszudruckenden Blocks ein; 

2. Eingabe von Filename und Blocknummer: Das Programm 
liest aus der Directory, wieviele Blocks das angegebene 
File belegt und zeigt dies am Bildschirm an. Nun konnen Sie 
wahlen, welchen dieser Blocke Sie sehen mochten. 

Bytereihen ausdrucken: 

Mit diesem Menupunkt konnen Sie gezielt bestimmte Bytes 
einer Datei oder eines Sektors herauspicken. Die Form der Ein- 
gabe von Parametern ist identisch mit der des Teilprogrammes 
»Einzelne Blocke ausgeben«. Zusatzlich mussen Sie das erste 
und letzte auszudruckende Byte eines Sektors festlegen 
(0-255). Das erste Byte kann auch zugleich das letzte sein, 
was die Ausgabe nur eines Wertes bewirkt. 



030? 
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Dateiorganisation 



Blockbelegung von Files: 

Von einer Datei belegte Sektoren werden ihrer Reihenfolge 
entsprechend, im Format: laufende Blocknummer, Spur/Sek- 
tor, ausgegeben. Auch eine Routine zur Berechnung der tat- 
sachlichen Filelange in Bytes ist in dieses Teilprogramm inte- 
griert. Das zweite Byte des letzten Blockes gibt die Anzahl der 
von der Datei in diesem Block benotigten Bytes an. Daraus er- 
gibt sich folgende Formel fur die Filelange: (Gesamtzahl beleg- 
ter Blocks — 1) * 254 + 2. Byte letzter Block. 

Einschrankung fur relative Dateien: Spur und Sektor von 
Side-Sektor-Blocken werden nicht angezeigt. An ihrer Stelle 
erscheint das Kurzel »SSB«, so daB man wenigstens weiB, wie- 
viel SSB das DOS zur Verwaltung der Datei benotigt. 

Directory: 

Dieser Befehl bringt Ihnen eine erweiterte und vor allem uber- 
sichtlichere Directory Ihrer Disketten zu Papier. Selbstver- 
standlich ohne das Programm zu zerstoren. Sie enthalt Infor- 
mationen uber: 

— Diskettenname und ID 

— Nummer des Eintrages 

— Filename 

— Filelange in Blocks 

— Filelange in Bytes = (Filelange in Blocks — 1) * 254 + 
127) 



Es wird davon ausgegangen, daB der letzte Block zur Half- 
te belegt ist. Die Angabe weicht also urn maximal 1 26 Bytes 
von der tatsachlichen Lange ab. 

— 1. Datenblock des Files 

— Filetyp 

— Freie Eintrage 

— Freie Blocke 

Bei relativen Dateien finden Sie im AnschluB an den Filetyp 
zwei zusatzliche Angaben: 

— Erster Side - Sekfor - Block (Spur/Sektor) 

— Recordlange 

BAM (Block Available Map) 

Das Format des Blockbelegungsplanes ist wie folgt festgelegt: 
Horizontal werden die einzelen Sektoren aufgetragen, vertikal 
die Spuren 1—35. Ein Stern kennzeichnet einen belegten 
Sektor, das Minuszeichen einen freien. Mit »/« markierte Sek- 
toren sind nicht vorhanden, da die Anzahl der Sektoren je Spur 
zum Diskettenmittelpunkt hin abnimmt. Dem Wert rechts ne- 
ben jeder Spur konnen Sie entnehmen, wieviele Blocke auf 
dieser noch nicht belegt sind. Die Summe der freien Sektoren 
finden Sie ganz unten. Sollte einmal die Gesamtzahl der freien 
Blocke nicht mit der Angabe in der Directory ubereinstimmen, 
so ist mit der Diskette ein »VAUDATE« durchzufuhren, urn den 
korrekten Zustand wieder herzustellen. 



Benotlgte Hardware 



Erstellt und getestet wurde das Programm auf einem C 64 
mit Floppy VC 1541 und Epson RX-80 (mit Data-Becker- 
Interface). 

Eine Umsetzung auf andere Druckertypen durfte keine 
groBen Schwierigkeiten machen, da die meisten Steuerzei- 
chen fur Druckerfunktionen in den Zeilen 4220-4370 unter- 
gebracht sind. Weitere Steuerzeichen, welche vereinzelt 
im Programmtext vorkommen, sind durch die Form 

(c$="string":c3=Zahl:gosub4030)leichtzuerkennen. Durch 
diese Druckparameter werden vor allem Schriftart und Zeilen- 
abstahd gesteuert. 



C64 



Ausnahme: Teilprogramm »Blockbelegung von Files« 

Zeilen 1 890—1 900 : A(3) = 254 
1 930—1 940 
2020—2030 : A(3) = 255 

In diesen Zeilen wird in den Grafikmodus des Druckers 
umgeschaltet und eine Punktmatrix (CHR$(254) oder 
CHR$(255) fur die senkrechten Linien, CHR$(64) fur die 
waagrechte Linie ubermittelt. 

Mit diesen Hinweisen sollte die Anpassung an andere 
Drucker keine Schwierigkeit mehr darstellen. 

Zum SchluB mochte ich noch auf ein Buch hinweisen, das 
mir erst die notigen Grundlagen zu diesem Programm vermit- 
telte: »Das groBe Floppy-Buch« von Data Becker. Eine wirklich 
ausgiebige und informative Quelle fur alle jene, die sich intensi- 
ver mit der Floppy-Programmierung befassen wollen. 

Ich denke, daB Sie das Programm nun sinnvoll einsetzen 
konnen, zumal es auch Routinen enthalt, die man in andere 
Programme ubernehmen kann. 

( Johann Auer / ev) 








Tabelle 1. Programmbeschreibung 






Zeile(n) 

10-100 
- 170 

190 

210 

280-430 
460-770 
710-750 
800-960 
990-1350 
1050-1080 

1380-1680 

1440 
1710-2130 

2050 
2160-2870 
2430-2650 

2900-3430 
3150-3220 

3390-3430 
3460-3490 



Bedeutung 

Titelvorspann 

Aufruf 'Initialisierung' 

Aufruf 'Menu' 

Sprungbefehl zu Teilprogrammen (Start- - 

adressen) 

Initialisierung 

Menu 

Prufen ob Drucker eingeschaltet 

Ganzes File ausgeben (Teilprogramm) 

Einzelne Blocke ausdr. (Teilprogramm) 

Eingabewahl: 1) Spur/Sektor 

2) Filename/Blocknr. 
Bytereihen (Teilprogramm) 
Sprung zu Eingabewahl (Zeilen 1050-1080) 
Blockbelegung von Files (Teilprogramm) 
Spur/Sektor des nachsten Datenblocks laden 
Direktory aufzeigen (Teilprogramm) 
8 mal 32 Zeichen eines Directoryeintrages 
lesen — Zerlegung dieses Strings 
BAM (Teilprogramm) 

4 Bytes fur je eine Spur lesen und in Binarstring 
umwandeln 

Anzahl Sektoren pro Spur berechnen 
Ende (Teilprogramm) 
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C64 



Dateiorganisation 









3520-3760 
3780-3790 
3810-3850 

3870-3910 

3930-3940 

3960-3990 

3980 

4010-4030 

4050-4200 
4220-4370 
4390-4630 

4490-4560 

4650-4750 

4770-4830 
4840-4890 
4910-4950 

4970-5040 

5060-5090 

5110-5160 

5180-5210 

5230-5260 

5280-5300 

5320-5410 



Name 

NU$ 

A 

FT$(I) 

BN 

AN 

EN 

BP 

SP 

SE 

S1/S2 

MSE 

EB 

LB 

RE 

AR 

FL 

DN$ 

ID$ 

FB 

ET$ 

EN$ 

FT$ 

FT 

F$ 

LA$ 

BY$ 

RL$ 

GF 

L$ 

P$ 

FL$ 

11$ 
B$ 
AB 



File vorhanden (Directory durchsuchen) 

Floppy initialisieren 

Sektor in Pufferspeicher laden — Pufferzeiger 

setzen 

2 Bytes aus Pufferspeicher holen 

Floppykanale schliefBen 

Drucker initialisieren 

Drucker auf halbe Geschwindigkeit stellen 

(kann weggelassen werden) 

ParameterisierteSchriftenubermittlung 

zum Drucker 

Kopfzeilen fur Menupunkte 1—4 drucken 

Verschiedene Druckparameter fur Schriftart 

Bytenummer, Bytes und ASCII-Zeichen fur 

Teilprogramme 1—3 drucken 

8 Zeichen aus Pufferspeicher holen und 

umwandeln 

Basic-Token der Operatoren in Zeichen 

umwandeln und String aufaddieren 

Filename eingeben 

Hinweis, wenn File nicht vorhanden 

Fur Teilprogramm 1 prufen, ob bereits 2 Sekto- 

ren pro Seite gedruckt sind 

Eingabe Blocknummer fur Teilprogramm 2 und 

3, Laden dieses Blocks Tabelle 2 

AbfrageSeitenvorschub .. 

Tastaturabfrage auf J/N Unter- 

F1 - Funktionstastenabfrage programme 
Aufforderung gewunschte Diskette einzulegen 
F1 - Fertig - Abfrage 
Diskettenname und ID lesen 



r>i REEK 



GN AUFZ.-DICHTE DOS ANZAHL BLbCKE SPUR 

08 256 BYTES/SEKT. V2.6 683 (664 FRED 0018 

» 

Diskettenname: 1541 TEST /DEMO ID: ZX 



SEKTOREN 
01-18 



Bedeutung 

String mit 8 Nullen und 8 Punkten 

Teilprogrammnummer 

Filetypen 

aktuelle Blocknummer 

Anfangswert fur Laufvariable 

in UP »Bytes ausdrucken 

Endwert fur Laufvariable 

in UP »Bytes ausdrucken« 

Block Pointer (Zeiger im Pufferspeicher) 

Spur 

Sektor 

ASC-Codes aus UP »2 Bytes holen« 

Maximale Anzahl Sektoren pro Spur 

Erstes zu druckendes Byte 

in Teilprogramm »Bytereihen« 

Letztes zu druckendes Byte 

in Teilprogramm »Bytereihen« 

Anzahl Blocke pro Zeile bei Teilprogramm 4 

Anzahl der Reihen in Teilprogramm 4 

Filelange in Blocks 

enthalt den Diskettennamen 

ID der Diskette 

freie B Locke 

ein kompletter Directoryeintrag 

Eintragsnummer 

Filetyp (String) 

Filetyp (Zahl) 

Filename 

Filelange in Blocks 

Filelange in Bytes 

Recordlange 

Gesamtzahl f reier Blocke der Diskette 

Bitmuster der belegten Sektoren einer Spur 

(0 = Sektor belegt, 1 = frei) 

aus Directory gelesener Filename in 

UP »Fileyorhanden« 

enthalt Filelange in Blocks fur UP »Kopf 

drucken« 

8 Bytes fur UP »Bytes ausdrucken« 

ASCII-Zeichen der 8 Bytes 

Anzahl Blocks pro Seite 



Tabelle 3. 

Die wichtigsten 

Variablen 



MR . 


FILENAME 


BL. 


BYTES 


l.DB. 


TYP 


(301 


HOW TD USE 


013 


03175 


17/00 


PRG 


002 


HOW PART TWO 


005 


01143 


17/03 


PRG 


003 


VIC-20 WEDBE 


004 


00B89 


17/09 


PRG 


004 


C-64 WEDGE 


001 


O0127 


19/00 


PRG 


005 


DOS 5 . 1 


004 


00BB9 


19/01 


PRG 


006 


COPY/ ALL 


011 


02667 


1 9 / 03 


PRG 


007 


PRINTER TEST 


009 


02159 


19/09 


PRG 


008 


DISK ADDR CHANGE 


004 


008B9 


16/00 


PRG 


009 


DIR 


004 


00BB9 


16/01 


PRG 


010 


VIEW BAM 


006 


01397 


16/03 


PRG 


011 


CHECK DISK 


004 


00BB9 


16/07 


PRG 


1 2 


DISPLAY TfcS 


014 


03429 


16/15 


PRG 


013 


PERFORMANCE TEST 


009 


02159 


20/02 


PRG 


014 


SEQUENTIAL FILE 


005 


01143 


20/07 


PRG 


015 


RANDOM FILE 


013 


03175 


15/01 


PRG 


FREIE 


BLbCKE: 558 IN BYTES: 141732 FREIE EINTRAGE: 



Bild 1. Directoryau sdruck 



Diskettenname; 1541 TEST /DEMO ID; ZX 

Sektor 11111111112 FREIE 

p 0123 45678901 23 4567B90 BLbCKE 

rl --------------------- £l 

2 ________ 21 

3 21 

4 __ _____ _ _ _ _ 21 

5 . _ ... 21 

6 21 

7 _ _ _________ 21 

B 21 

9 _______________-_-_-- 21 

10 21 

n 21 

12 21 

13 __ ___________ 21 

14 ___*_*_______*-*----- 17 

IS*****-*****-********-**'* 00 

lfo*************-**'******' 00 

17*********-***-*--***-**-*-*-*- 00 

IB**--*------------- -- // 16 

1 <?■*■**■*••*-*•*■*-***■•**-■*■*■*•*■**// 00 

20 -a-******************/ / 00 

2i * __-___-_ / / IB 

22 / / 19 

27. _____ _ -// 19 

24 _--__------------■--// 19 

25 /// IB 

26 _--_ _____ /// IB 

27 / / / 18 

2 B /// IB 

29 - - _______ ___/// 1B 

30 __________________/// ib 

31 ____ _____ ____//// 17 

32 ______ ___//// 17 

33 ._ / / / / 17 

3$ _______ __ -//// 17 

35 - - ----- ----- __-._/ / / / 17 



Bild 2. Blockbelegungsplan einer Diskette 



1'uJ 



B 



Fi lename: 




DIR 














Tvd; 






PRG 




- 










Filel 


anqe: 


CA. 


4 BLOCKS 








Spur: 


16 




Sektor: 


__ 




Block: 




Bytes 








-__> 


016 


012 


178 


034 


034 


058 


153 


034 


II 11 M 11 

■ ■ •• n m 


008> 


062 


034 


059 


000 


026 


006 


171 


015 


■:" m 


016) 


161 


066 


036 


058 


139 


066 


036 


178 


. B*: -B*. 


024 > 


034 


034 


032 


167 


052 


048 


049 


049 


"" .4011 


032 > 


000 


053 


006 


172 


015 


153 


066 


036 


■_■ ■ « ■ B * 


040 > 


059 


058 


139 


032 


066 


036 


178 


199 


; : . B*. . 


048 > 


040 


049 


051 


041 


032 


167 


032 


052 


(13) . 4 


056 > 


048 


050 


048 


000 


073 


006 


173 


015 


020. I. . . 


064 > 


067 


036 


178 


067 


036 


170 


066 


036 


C$.C$.B* 


072 > 


058 


137 


032 


052 


048 


049 


049 


000 


:. 4011. 


080> 


083 


006 


180 


015 


152 


050 


044 


067 




088 > 


036 


000 


093 


006 


136 


019 


153 


034 


* " 


096 > 


018 


034 


059 


000 


126 


006 


146 


019 


" • 


104> 


161 


035 


050 


044 


065 


036 


058 


153 


.#2, A*: . 


112> 


065 


036 


059 


058 


139 


032 


065 


036 


A*;:. A* 


120> 


179 


177 


199 


040 


049 


051 


041 


137 


■ « ■ \ X •— ■* ' * 


128> 


053 


048 


049 


048 


000 


135 


006 


156 


5010. .. . 


136> 


019 


153 


034 


146 


034 


000 


155 


006 


ii 1 1 

■ ■ ■ ■ ■ ■ 


144> 


016 


039 


153 


032 


034 


068 


045 


068 


. ' . "D-D 


152> 


073 


082 


069 


067 


084 


079 


082 


089 


I RECTORY 


160> 


034 


000 


178 


006 


026 


039 


153 


032 


ll ' 

■ ■ « ■ ■ 


168> 


034 


062 


045 


068 


073 


083 


075 


032 


" >-DISK 


176> 


067 


079 


077 


077 


065 


078 


068 


034 


COMMAND" 


184> 


000 


201 


006 


036 


039 


153 


032 


034 


.*• ' li 


192> 


081 


045 


081 


085 


073 


084 


032 


080 


Q-QUIT P 


200> 


082 


079 


071 


082 


065 


077 


034 


000 


R06RAM" . 


208 > 


224 


006 


046 


039 


153 


032 


034 


083 


II q 


216> 


045 


068 


073 


083 


075 


032 


083 


084 


-DISK ST 


224> 


065 


084 


085 


083 


032 


034 


000 


245 


ATLIS " . . 


232 > 


006 


116 


039 


161 


065 


036 


058 


139 


. . ' .A*: . 


240> 


065 


036 


178 


034 


034 


167 


04.9 


048 


A*. "". 10 


248 > 


049 


048 


048 


000 


007 


007 


216 


039 


100 ' 



3. Meniipunkt 2 (Einzelne Blocke) mit Eingabe 
Filename/Blocknummer 



333? 
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Dateiorganisation 



C64 



Filenames 



Filelan 
Spurs 16 



Byte: 

M4> 
152> 

1 6 : ■ 

168> 
176) 



DIR 

PRB 

CA. 4 BLOCKS 

Sektors 2 



Block 



073 082 
034 000 
034 062 
067 079 



192> 
200 > 



081 
082 



045 
079 



069 
178 
045 
077 

081 
071 



067 
006 
068 
077 

085 

082 



084 
026 
073 
065 

073 
065 



068 
079 
039 
083 
078 



045 068 
082 089 
153 032 
075 032 
068 — 



Bild 4. Bytereihen mit 
Eingabe Filename/ 

D-D Blocknummer 

I RECTORY 



084 032 080 
077 



">-DISK 
COMMAND. 

Q-QUIT P 
ROBRAM. . 



Absatz 1: 
erstes Byte: 149; 
letztes Byte: 182; 



Absatz 2: erstes Byte: 192; letztes Byte: 205. 



Filenames 



Filelanae 



DISPLAY T&S 
PRG 

CA. 14 BLOCKS 



001 I 00 2 I 003 f 004 I 005 I 006 I 007 I 008 I 009 I 010 
16/ 15 1 16/ 18 1 15/06 1 15/16 1 15/04 1 15/1 4 1 15/02 1 15/1 2Tl 5/00 |1 5TI"0 
011 I 012 I 013 ! 014 



15/20115/08115/18115/07 



GESAMTLftNGE : 3356 BYTES 



Bild 5: Blockbelegung von Files. Die obere Spalte enthalt 
die laufende Blocknummer, darunter sind Spur/Sektor 
angegeben. 



10 


REM 


**************************## 


<049> 


20 


REM 


**************************** 


<059> 


30 1 


REM 


** ** 


<085> 


40 


REM 


** JOHANN AUER ** 


<074> 


50 1 


REM 


** HERMANN-HILLER-STR- 54 ** 


<02B> 


60 1 


REM 


** 8263 BURGHAUSEN ** 


<058> 


70 1 


REM 


** ** 


<125> 


80 


REM 


**************************** 


<119> 


90 1 


REM 


************************■*.**..* 


<129> 


100 


■ 




<15B> 


110 


■ 


■ 


<16B> 


120 


■ 
■ 




<17B> 


130 


REM 


************************.*.****♦# 


<039> 


140 


REM 


*******F I LE-ORGAN I SAT I ON******* 


<066> 


150 


REM 


****************************.*.imi. 


<059> 


160 


• 




<21B> 


170 


GOSUB 280: REM ***INITIALISIERUNG**** 


<048> 


180 


* 




<23B> 


190 


GOSUB 460: REM ********MENUE********* 


<242> 


200 


: 




<002> 


210 


ON A GOTO 800,990,1380,1710,2160,2900, 


,3460 






<101> 




220 


• 


• 


<022> 


230 


REM 


***********************«-***-»*.»* 


<139> 


240 


REM 


*******F I LE-ORGAN I SAT I ON******* 


<166> 


250 


REM 


************************-*-***-■**-■* 


<159> 


260 


■ 


\ 


<063> 


270 






<073> 


280 


REM 


******** INITIALISI ERUNG******** 


<184> 


290 


■ 




<093> 



II 



II 



300 DIM FT*(3):DIM A*(7) : A* (6) = " CR IGHT, RVSON 3TT 
CDOWN , LEFT 3TTCRVQFF , SPACE , YELLOW 3 " 

:A*(7)="CRVOFF,SPACE,BLACK3Tn:LEFT,UP3 , irCDOWN3 

<205> 
310 RF=53280: HF=RF+1 : A*=" " : NU*= " 00000000 

: EB=- 1 : N3=0 : RESTORE < 1 1 2 > 

320 DI*="D"+CHR* (105) +CHR* (115) +CHR* < 107) +CHR* ( 

101)+CHR*(116)+CHR*(116) <063> 

330 DI*=DI*+CHR* ( 101 ) +CHR* (110) +CHR* < 1 10) +CHR* ( 

97) +CHR* ( 109) ++CHR* ( 101 ) +" : " <015> 

340 FOR 1=1 TO 40:READ Q: A*=A*+CHR* (Q) : NEXT 

<161> 
350 A*(0)=LEFT*(A*,9) : A* ( 1 >=MID* (A*, 10,4) 

:A*(2)=MID*(A*,14,10) <140> 

360 A*(3)=MID*(A*,24,5) : A* <4) =MID* (A*, 29, 7) 

:A*(5)=RIGHT*(A*,5) <126> 

370 DATA 70,105,108,101,110,97,109,101,58,84, 

121 , 1 12,58,70, 105 <031 > 

380 DATA 108,101,108,123,110,103,101,58,83,112, 

117,114,58,83,101 <127> 

390 DATA 107,116,111,114,58,66,121,116,101,58 

<243> 
400 FT* (0) ="REL" : FT* ( 1 ) ="USR" : FT* (2> ="PRG" 

:FT*<3)="SEQ" <200> 

4 1 LZ*= " CSPACE 3 CSPACE 3 CSPACE 3 

CSPACE 3 CSPACE 3 CSPACE 3 CSPACE 10 3" 

<012> 



420 PRINT CHR*(8) ; : POKE 788,52 <212> 

430 RETURN <061> 

440 : <243> 

45 « = <253> 

460 REM *************MENUE************* <026> 

470 : <017> 

480 POKE RF,0:POKE HF,llsPRINT CHR* ( 14) •• CCLEAR, 

DOWN3"TAB (11); <250> 

490 PRINT" CCYAN3 FXl£-flJU3J»U3JlT.ljO>l " 

: PR I NT TAB (11)" CBLACK3 UUUmi\J\AAAAAAAAAjV " 

<079> 

500 PRINT" CRIGHT3BITTnTTlTrrnTTnilTTlTnTlTT 

1 1 iTlTlV" <030> 

510 PRINT A* (6) "£ANZES CSPACE 3£ILE CSPACE, BLACK 3 

CSPACE, YELLOW, RVSON 3 

1"A*(7) <166> 

520 PRINT A*<6)"£INZELNECSPACE3JLOECKECSPACE, 

BLACK3 CSPACE, YELLOW, RVSON 3 

2" A* (7) <051> 

530 PRINT A*<6) "BYTEREIHEN CSPACE, BLACK 3 

CSPACE, YELLOW, RVSON 3 

3" A* (7) <114> 

540 PRINT A*(6)"3-OCKBELEGUNGCSPACE3VONCSPACE3 

Z.ILES CSPACE, BLACK 3 CSPACE , YELLOW , 

RVSON34"A*(7) <210> 

550 PRINT A* (6) ".2IREKTORY CSPACE, BLACK 3 

CSPACE, YELLOW, RVSON 3 

5" A* (7) <132> 

560 PRINT A*(6)" < SaacSPACE,BLACK3 

- CSPACE, YELLOW, 

RVSON36"A*(7) <1B2> 

570 PRINT A*(6) "£jifl£ CSPACE, BLACK 3 

CSPACE, YELLOW, 

RVSON 37 " A* ( 7 ) < 095 > 

580 PRINT" CRIGHT,RVSON31TCDOWN,LEFT,RVOFF3E 

CRVSON 3TrnTTTITrrrnTrniTrriTITTTITTTTTTT 
CRVOFF3VCUP,LEFT3 , k , CDOWN3" <249> 

590 PRINT" CDOWN, SPACE3 , C YAN 3IHRE C SPACE 3JJAHL? 

C YELLOW, SPACE 3 " ; <073> 

600 GET EI*: IF EI*<>""THEN 620 <011> 

610 PR I NT "CSPACE, LEFT 3";: FOR T=l TO lSBsNEXT ' 

:PRINT r,, prcLEFT3";:FOR T=l TO 150: NEXT: GOTO 600 

<224> 
620 A=VAL<EI*): : IF A< 1 OR A>7 THEN 600 <099> 
630 PRINT EI*: FOR T=l TO 1000: NEXT <214> 

640 IF A=7 OR SP>0 THEN RETURN <160> 

650 PR I NT " CUP , SPACE3 , YELLOW 3flUSGABE CSPACE 3 AUF 
CSPACE , BLACK 3£E£fifciC YELLOW 3-.BRUCKER CSPACE , 
BLACK 3&&-80 C YELLOW 3 " < 073> 

660 PR I NT " CSPACE3 3M I T CSPACE , BLACK 3.2flJfi-2££JL£& 
C YELLOW, SPACE 3INTERFACE !": FOR T=l TO 2500 
-■NEXT <201> 

670 PR I NT " CUP2 , SPACE3 , BLACK 32RUCKER CSPACE 3 

E I NSCHALTEN CSPACE 3UND CSPACE 3£AP I ER CSPACE4 3 " 

<021> 
680 PRINT"CSPACE33POSITIONIEREN! ! ! CSPACE 12 3" 

<210> 
690 PR I NT " CSPACE3 , YELLOW 3f£RT I G C SPACE , BLACK 3 

CSPACE, YELLOW, RVSON 3£1" 

<063> 

700 GOSUB 5180 <025> 

710 OPEN 1,4,1:P0KE 768,61 <094> 

720 PRINT#1,CHR*(7>;: CLOSE 1 <092> 

730 POKE 768,139 <225> 

740 IF STO-128 THEN 760 <006> 

750 GOTO 700 <016> 

760 OPEN 4,4,1: GOSUB 3960 <035> 

770 RETURN <147> 

780 : <073> 

790 ' <083> 

800 REM**********GANZES FILE*********** <236> 

Q1 * = <103> 

820 PRINT" CCLEAR, DOWN , SPACE 1 1 , BLACK 3 

o o (roooo qoooooqooo" <145> 

830 PRINT" CSPACEU3>»CWHITE3£ANZESCSPACE3£ILE 
CBLACK3<<<" <009> 

840 PRINT" CSPACE1 1 3 U U WIAAJIAAAAAAAAA/ " <096> 

850 GOSUB 5230 <172> 

860 AB=0:N=0:BN=1:GOTO 4770 <112> 

870 GOSUB 4050 <191> 

880 AN=0:EN=255 <255> 

B90 BP=0: GOSUB 3830: GOSUB 3870 <031> 

900 IF S1=0 THEN N=1:EN=S2 <084> 

910 GOSUB 4390:PRINT#4:PRINT#4:GOSUB 4910 <143> 

920 IF N=l THEN N=0:GOTO 940 <142> 
930 SP=S1:SE=S2:BN=BN+1: GOSUB 4 100: GOTO 890 

<094> 
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< 023 > 
<169> 
<146> 
<007> 
<017> 
<095> 
<037> 



940 BOSUB 3930:PRINT#4:PRINT#4 

950 IF AB=1 THEN GOSUB 5060 

960 BN=0:GOTO 190 

970 : 

980 : 

990 REM********EINZELNE BLOECKE»******* 

1000 : 

1010 PRINT" [CLEAR, SPACE9, BLACK 3 

0000 00000000 00T3OOOOO" <219> 

1020 PRINT" [SPACE9 3>>>[WHITE3£INZELNE[SPACE3 

S-OECKE [BLACK K<<" " <080> 

1030 PRINT" [SPACE9 3\AAA/UW\AA/lAAAAAAAAAA/Uli M <1B3> 
1040 GOSUB 5230 <107> 

1050 PRINT" [DOWN, SPACE, BLACK 3JLLfclfiB2£: " 

: PR I NT " [DOWN , SPACE , CYAN 3.SPUR/3EKTOR [SPACE , 

BLACK] [SPACE, CYAN 31" < 179> 

1060 PRINT" [SPACE 3£ILENAME/3_0CKNR. [SPACE, BLACK] 

[SPACE , CYAN 32 " < 245 > 

1 070 I NPUT " [ DOWN , SPACE , BLACK 3 » > [SPACE , YELLOW 3 " ; 

E* <152> 

1080 E=INT(V/AL(E*) ) : IF E< 1 OR E>2 THEN 1100 

<231> 
1090 ON E GOTO 1110,1190 <095> 

1100 PRINT" [UP,RIGHT6,SPACE10,UP23": GOTO 1070 

<025> 
1110 I NPUT " [DOWN , SPACE , BLACK 35PUR/5EKTOR 

: [SPACE , YELLOW 3 " ; SP$ , SE* < 2 1 5 > 

1120 SP=INT(VAL(SP$)):SE=INT(VAL(SE*) ) : I=SP 

: GOSUB 3390 <102> 

1130 IF(SP=>1 AND SP<=35)AND(SE=>0 AND SE<=MSE) 

THEN 1160 <203> 

1140 PRINT" [UP3" ;: FOR T=l TO 38: PRINT" [SPACE3" ; 

sFOR Tl = l TO 5: NEXT TlrNEXT T <193> 

1150 PRINT" [UP23": GOTO 1110 <007> 

1160 GOSUB 3780: BP=0: GOSUB 3810: BN=0 <216> 
1170 IF A=3 THEN 1460 <185> 

1180 N2=1:G0T0 1220 <139> 

1190 N2=0:GOTO 4770 <161> 

1200 GOTO 4970 <017> 

1210 SP=S1:SE=S2 <160> 

1220 GOSUB 3830: GOSUB 3870: AN=0:EN=255 

: IF S1=0 THEN EN=S2 <030> 

1230 IF N2=l THEN GOSUB 4 100: GOTO 1250 <06B> 
1240 GOSUB 4050 <050> 

1250 N2=0: GOSUB 4390:PRINT#4:PRINT#4:PRINT#4 

<241> 
1260 GOSUB 5060 <072> 

1 270 PR I NT " [DOWN , SPACE , BLACK ltj£ I TERER [SPACE 3 

3-OCK [SPACE3 , YELLOW 32/ M? " ; : GOSUB 5110 < 1 83 > 
1280 IF A$="J"THEN 1300 <160> 

1290 GOSUB 3930: BN=0: GOTO 190 <116> 

1300 IF E=l THEN 1330 <058> 

1310 PRINT" [DOWN, SPACE, BLACK 3£LE I CHES [SPACE 3 

f.ILE[SPACE4,YELLOW3i/H? n 5 :GOSUB 5110 <114> 
1320 IF A*="J"THEN 1340 <204> 

1330 N2=0: GOSUB 3930: GOTO 990 <148> 

1340 N2=1:S1=E1:S2=E2 <114> 

1 350 PR I NT " [CLEAR , DOWN2 3 " ; : GOTO 1 200 < 1 58 > 
1360 : <143> 

1370 : <153> 

1380 REM#**********BYTEREIHEN********** <089> 
1390 : <173> 

1 400 PR I NT " [CLEAR , SPACE 1 2 , BLACK 3 

toWoWbWoWoWo'" <013> 

1410 PRINT" [SPACE123>»[WHITE3SYTEREIHEN[BLACK3 

<<<" <214> 

1420 PR I NT " [SPACE 1 2 3UlftjmrtiWuVuVUinAT <238> 

1430 GOSUB 5230 <242> 

1440 N3=0:GOTO 1050 <145> 

1450 SP=S1:SE=S2: GOSUB 3830 <038> 

1460 INPUT" [DOWN, RIGHT, BLACK 3£PSTES [SPACE 3fiYTE 

: [SPACE2 , YELLOW 3 " ; EB < 228 > 

1470 IF EB<0 OR EB>255 THEN GOSUB 1510: GOTO 1460 

<197> 

1480 INPUT" [DOWN, RIGHT, BLACK 3 J^TZTES[SP ACE 3JYTE 

: [SPACE , YELLOW 3 " ; LB < 084 > 

1490 IF LB<0 OR LB>255 OR LB<EB THEN GOSUB 1510 

:GOTO 1480 <097> 

1500 GOTO 1520 <050> 

1510 PRINT" [UP 3" ; TAB ( 14) ;" [SPACE 10, UP2 3": RETURN 

<046> 
1520 IF N3O0 THEN GOTO 1670 <147> 

1530 IF E=l THEN GOSUB 4100: GOTO 1550 <057> 
1540 GOSUB 4050 <096> 

1550 AN=EB:EN=LB: GOSUB 4390 " <128> 



1 560 PR I NT " [CLEAR , DOWN 3 " ; : GOSUB 5060 < 1 08 > 
1 570 PR I NT " [DOWN , R I GHT , BLACK 3HE I TERE [SPACE 3 

SE I HE [SPACE4, YELLOW 3i/J4?";: GOSUB 5110 <178> 
1580 IF A$="J"THEN 1600 <208> 

1590 GOSUB 3930:PRINT#4:PRINT#4:PRINT#4:EB=-1 

:N3=0:GOTO 190 <243> 

1 600 PR I NT " [DOWN , R I GHT , BLACK 3£LE I CHER [SPACE 3 

28_OCK [SPACE3, YELLOW 3£/H?"; : GOSUB 5110 <252> 
1610 IF A$="J"THEN N3=l : PRINT" [DOWN 3"; : GOTO 1460 

<124> 
1620 PRINT#4:PRINT#4 <044> 

1630 IF E=l THEN 1660 < 139> 

1 640 PR I NT " [DOWN , R I GHT , BLACK 3£LE I CHES [SPACE 3 

£ILE[SPACE4,YELLOW3£/ii? ,, ;:GOSUB 5110 <21S> 

1650 IF A*="J"THEN N3=2: S1=E1 : S2=E2 

: PR I NT "[DOWN 3";: GOTO 4970 <124> 

1660 GOSUB 3930:PRINT#4:GQTO 1380 <115> 

1670 IF N3=l THEN 1550 <237> 

1680 GOSUB 4100: GOTO 1550 <11B> 

1690 : <218> 

1700 : <228> 
1710 REM*********BLOCKBELEGUNG********* <235> 

1720 : <24B> 
1730 PRINT" [CLEAR, SPACE 10, BLACK 3 

OOOOOOOOOOOOOOOOOOO" <131> 

1 740 PR I NT M [SPACE 1 3 > > > [ WH I TE 3S-0CKBELE6UNG 

[BLACK 3<<<" <230> 

1750 PRINT" [SPACE 103lAAftAAAAftAAAAJ\AJ , \AAJV ,, <097> 
1760 GOSUB 5230: GOTO 4770 <210> 

1770 PRINT" [DOMN2 T RIGHT3 F_0JU1RT 

: [SPACE2,WHITE3JLOCKNUMMER" 

: PRINT" [SPACE , BLACK 3YYYYYY[SPACE3 3 

*L*L*JtJk*Jt_*JtAtJt " < 004 > 

1780 PRINT"[SPACE10,WHITE35PUR/SEKTOR" <045> 
1790 GOSUB 4050:PRINT#4:RE=10:RD=295:X1=39:X2=1 

<238> 
1800 AR=INT <FL/ 10+0. 95) : GOSUB 4300 <254> 

1810 FOR 1=1 TO AR:PRINT#4,"[SPACE6 3"; <174> 
1820 IF FL/10=INT(FL/10)THEN 1840 <026> 

1830 IF I=AR THEN GOSUB 2120 <063> 

1840 J=0 <099> 

1850 J=J+l:SU=(I-l)*10-*-J:BN*=STR*(SU) <202> 
1860 L3=LEN <BN*) -1 : BN*=" [SPACE 3"+LEFT* (NU$, 

3-L3 ) +R I GHT* ( BN* , L3 ) + " [ SPACE 3 " < 040 > 

1870 PRINT#4,BN$; <060> 

1880 IF J+0-5=>RE THEN 1920 <222> 

1890 PRINT#4,CHR$ (27) ; "K" ; CHR* (5) ; CHR* (0) ; 

: A (3) =254 <062> 

1900 FOR IJ=1 TO 5:PRINT#4,CHR*(A(IJ));:NEXT IJ 

<060> 
1910 GOTO 1850 <212> 

1920 C*="3":C3=20: GOSUB 4030:PRINT#4 <111> 
1930 PRINT*4,"[SPACE63"; : PRINT#4,CHR* (27) ; "K" ; 

CHR* (XI); CHR* ( X2) ; < 121 > 

1940 FOR IJ=1 TO RD:PRINT#4,CHR*(64) ; :NEXT IJ 

:C3=8: GOSUB 4030:PRINT#4 <056> 

1950 C3=40: GOSUB 4030:PRINT#4, " [SPACE6 3"; <112> 
1960 J=0:SS=0 <157> 

1970 J=J+1 : SP*=STR* (SI > : SE$=STR* (S2) 

:IF S1=0 THEN SS$=" [SPACE 3SSB [SPACE 3" :SS=SS+1 

:GOTO 2000 <122> 

1980 L4=LEN(SP*)-1:L5=LEN(SE*)-1 <197> 

1 990 SS*=LEFT* ( NU* , 2-L4 ) +R I GHT* < SP* , 

L4)+ ,, / ,, +LEFT*(NU*,2-L5)+RIGHT*(SE*,L5> <071> 
2000 PRINT#4,SS*; <212> 

2010 IF J+0-5=>RE THEN 2040 <090> 

2020 PRINT#4,CHR*(27) ; "K" ; CHR* (5) ; CHR* (0) ; 

: A (3) =255 <193> 

2030 FOR IJ=1 TO 5:PRINT#4,CHR*(A(IJ) ) ; :NEXT IJ 

:IF S1=0 THEN 1970 <097> 

2040 IF S1=0 THEN 2060 <095> 

2050 SP=S1:SE=S2:BP=0: GOSUB 3830: GOSUB 3870 

:IF J<RE THEN 1970 <153> 

2060 PRINT#4:NEXT I : PR I NT#4 : GOSUB 4320 

: GOSUB 3930 <017> 

2070 GOSUB 4220 : PR I NT#4 , " GESAMTL " CHR* (91)" NGE : " ; 

: GOSUB 4270 <159> 

2080 PR I NT#4 , ( FL- 1 -SS ) *254+S2 " BYTES " : PR I NT#4 

:PRINT#4:PRINT#4:PRINT#4 <105> 

2090 PR I NT " [DOWN 3 " ; : GOSUB 5060 

: PRINT" [DOWN, RIGHT, BLACK3JiEITERES[SPACE3£ILE 

[SPACE4, YELLOW 3 £/&?";: GOSUB 5110 <183> 

2100 IF A*= H J"THEN 1710 <220> 

2110 GOTO 190 <105> 
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<158> 
<168> 
<096> 
<188> 



2120 RE=10*(FL/10-INT(FL/10)) 

:RD=INT(RE*29.5+0.5) <190> 

2130 Xl=RD-INT<RD/256)*256:X2=INT(RD/256): RETURN 

<041> 
2140 : 

2150 : 

2 1 60 REM***#**#**»*D I REKTDR Y**##***#**» 
2170 : 

2180 PR I NT " C CLEAR , SPACE 1 2 , BLACK 3 o q o q q q o ' tfWtftfBW " 

<099> 

2190 PRINT"CSPACE12 3>»CWHITE3flIREKTQRYCBLACK3 
<<<U <179> 

2200 PRINT" C5PACE12 3 UUUbUlJUuUu , uVWU ":GD5UB 5230 
: GOSUB 5280 <108> 

2210 FRINT"CDQWN.SPACE,BLACK3 JUMUERZUNGEN ; " * 
s PR I NT ■ [SPACE , YELLOW 3&L. CSPACE3 , BLACK 3- 
CSPACE , CYAN 3£.I LELAENGE [SPACE 3 1 N CSPACE 3 
3-OECKEN;" <161> 

2220 PR I NT " CSPACE , YELLOW 3££J££CSPACE , BLACK 3- 
CSPACE , CYAN 3UNGEFAEHRE CSPACE 3£I LELAENGE 
CSPACE3INCSPACE163fiYTESCSPACE3"; <145> 

2230 PRINT" (SL*254);": PR I NT "CSPACE, YELLOW 3 1..M- 
CSPACE , BLACK 3- CSPACE , CYAN 3 1 - CSPACE 3 

3ATENBL0CK CSPACE 3DES CSPACE 3£ILES; " <094> 
2240 PR I NT ■ CSPACE , YELLOW 3JXE.CSPACE3 , BLACK 3 - 

CSPACE, CYAN3£ILETYP.":PRINT"CDOWN, SPACE, 
BLACK 3iiUR CSPACE 3BE I CSPACE 3RELAT I VEN CSPACE 3 
SATEIEN: " <06&> 

2250 PR I NT " CSPACE - YELLOW 3 1 . A&SCSP ACE . BLACK 3- 



C SPACE , CYAN 3 1 - §.1 DE-^EKTOR-JLOCK ; " 
260 PRINT" CSPACE , YELLOW 3£L CSPACE4 , BLACK 3- 
CSPACE,CYAN3£ECORDLAENGE. " 
2270 GOSUB 3780:PRINT#4," CSPACE53"; 



<076) 



/ 



TTI 



80 GOSUB 4240: C*="W":C3=1: GOSUB 4030 



<234> 
<246> 
<086> 

2290 PR I NT#4 , " D I REKTOR Y " : PR I NT#4 : C3=0 : GOSUB 4030 
: GOSUB 4270 <173> 

2300 GOSUB 4300:PRINT#4,"CSPACE6 3GNCSPACE2 3 

AUFZ.-DICHTECSPACE5 3DOSCSPACE3 3"; <198> 
23 1 PR I NT#4 , ■ ANZ AHL CSPACE 3BL " CHR* ( 92 ) " CKE 

CSPACE3 3SPURCSPACE2 3SEKT. " <224> 

2320 PRINT#4, ■ CSPACE6 308CSPACE2 3256CSPACE3 

BYTES/SEKT . CSPACE2 3 V2. 6 CSPACE2 3683 CSPACE 3 

( 664 CSPACE 3FRE I) CSPACE230018CSPACE2301-1B" 

<217> 
2330 PRINT#4 <239> 

2340 GOSUB 5320s GOSUB 3930: GOSUB 4320 <170> 
2350 PRINT#4," CSPACE5 3 " ; : GOSUB 4240: PRINT#4,DI*; 

: GOSUB 4270:PRINT#4,DN*; <020> 

2360 GOSUB 4240:PRINT#4,"ID: " ; : GOSUB 4270 <164> 
2370 PRINT#4, ID*:PRINT#4 < 

2380 PR I NT#4 , " CSPACE5 3NR - CSPACE2 3F I LENAME 

CSPACE 10 3BL. CSPACE2 3BYTES" ; 
2390 PRINT#4,"CSPACE231-DB. CSPACE3 3TYP" 

: GOSUB 4340: PRINT#4 , " CSPACE5 3" ; 
2400 FOR 1 = 1 TO 46:PRINT#4,"-"; :NEXT I:PRINT#4 

<013> 
2410 ET*= " " : I =0 : FB=0 : SP= 1 8 : SE= 1 : BP=0 : GOSUB 

<029> 
2420 GOSUB 3870: BP=2: GOSUB 3840 
2430 FOR J=l TO B: 1=1+1 

2440 FOR J 1 = 1 TO 32:GET#3,A* 
:IF A*=""THEN A*=CHR*<0) 



< 030 > 



<238> 



3810 



< 034 > 
<106> 



<097> 
<027> 



<208> 



2450 ET*=ET*+A*:NEXT Jl :ET*=LEFT*<ET*,30) 
2460 FT=ASC(LEFT*(ET*,1)):F1=FT 

:IF FT=0 THEN 1=1-1: GOTO 2650 
2470 EN*=LEFT* ( NU* , 4-LEN ( STR* ( I ) ) ) +R I GHT* ( STR* ( 

I) ,LEN(STR*<I) )-l) <017> 

2480 IF FT<128 THEN OF*="*" <172> 

2490 OF*=" CSPACE 3" <114> 

2500 FT=(F1 OR 128) AND 135: FT*=OF*+FT* ( 132-FT) 

<107> 
2510 AS=ASC(MID*(ET*,2,1) ) : SP*=LEFT* (NU*, 

3-LEN ( STR* ( AS ) ) ) < 033 > 

2520 SP*=SP*+RIGHT* (STR* (AS) ,LEN (STR* (AS) ) -1 ) 

<0B3> 
2530 AS=ASC (MID* (ET* ,3, 1 ) ) : SE*=LEFT* (NU*, 

3-LEN ( STR* < AS ) ) ) < 043 > 

2540 SE*=SE*+RIGHT*(STR*(AS) ,LEN (STR* (AS) ) -1 ) 

<0B1> 
2550 DB*=SP*+"/"+SE* <165> 

2560 F*=MID*(ET*,4,16) <241> 

2570 AS= ASC ( R I GHT* ( ET* , 1 ) ) *256+ ASC ( M I D* ( ET* , 29 , 

1)):FB=FB+AS <181> 

2580 L A*=LEFT* ( NU* , 4-LEN ( STR* ( AS > ) ) +R I GHT* ( STR* 

(AS) ,LEN(STR*(AS) )-l) <091> 
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2590 AS=(AS*256)-(AS*2)-127 <079> 

2600 B Y*=LEFT* ( NU* , 6-LEN ( STR* ( AS ) ) ) +R I GHT* ( STR* 

(AS) ,LEN(STR*(AS) )-l) <127> 

2610 PRINT#4,"CSPACE5 3"EN*"CSPACE2 3"F*"CSPACE23 

"LA*; <013> 

2620 PR I NT#4 , " CSPACE2 3 M BY* " C SPACE2 3 " DB* " CSPACE2 3 



<108> 
<240> 
<038> 
<029> 
<214> 
<040> 
< 035 > 



<096> 



"FT*; 

2630 IF RIGHT*(FT*,3)="REL n THEN GOSUB 2780 
2640 PRINT#4 

2650 ET*="":NEXT J 

2660 IF S1=0 THEN 2680 

2670 SP=S1:SE=S2:BP=0: GOSUB 3830: GOTO 2420 

2680 FB=664-FB: GOSUB 4360 

2690 PRINT#4:GOSUB 4300: PRINT#4, " CSPACE6 3" ; 

<151> 
2700 PRINT#4,"FREIECSPACE3BL n CHR*(92) "CKE 

: "FB" CSPACE23 IN CSPACE 3BYTES: " (FB*254) ; <030> 
2710 PRINT#4,"CSPACE2 3FREIECSPACE3 

EINTR"CHR* (91 ) "GE: " 144-1 : PRINT#4: PRINT#4 

:PRINT#4:PRINT#4 <250> 

2720 GOSUB 4320: GOSUB 3930 <150> 

2730 GOSUB 5060 <012> 

2740 PRINT"CDOWN,RIGHT,BLACK3MEITERECSPACE3 

aiSKETTECSPACE,YELLOW3i/ii?"; <170> 

2750 GOSUB 5110 <02B> 

2760 IF A*="J"THEN 2160 <114> 

2770 GOTO 190 <255> 

2780 AS=ASC ( M I D* ( ET* , 20 , 1 ) ) : SP*=LEFT* ( NU* , 

3-LEN (STR* (AS) )) 
2790 SP*=SP*+R I GHT* ( STR* ( AS ) , LEN ( STR* (Ad;. 

< 098 > 
2800 AS=ASC ( M I D* ( ET* ,21,1)): SE*=LEFT* ( NU* , 

3-LEN ( STR* ( AS ) ) ) < 1 06 > 

2810 SE*=SE*+R I GHT* ( STR* ( AS ) , LEN ( STR* ( AS ) ) - 1 ) 

<096> 
2820 DB*= " CSPACE I " +SP*+ " / " +SE* 

2830 AS=ASC (MID* (ET*,22, 1 ) ) :RL*=LEFT* (NU*, 
4-LEN (STR* (AS) )) 

2840 RL*=" CSPACE3"+RL*+RIGHT*(STR*(AS) , 

LEN (STR* (AS) )-l) 
2850 GOSUB 4300:PRINT#4," CSPACE331 - SSB: " ; 

: GOSUB 4320:PRINT#4,DB*; 
2860 GOSUB 4300: PRINT#4, " CSPACE3 3R"CHR* (108) " 

: GOSUB 4320:PRINT#4,RL*; <124> 

2870 RETURN <207> 

<133> 

<143> 

<086> 

: <163> 

PR I NT " CCLEAR , SPACE 1 4 , BLACK 3 q q q q b oWoW 

<102> 

PRINT"CSPACE14 3>>>CWHITE3fiCSPACE3flCSPACE3il 



-1) 






163> 



<145> 



<121> 



<090> 



*■ ■ 

9 



2880 
2890 
2900 
2910 
2920 



REM**************BAM************** 



.'• 







CBLACK3<<< " : PRINT" CSPACE 1 4 3 WUWiAAAjW' <172> 
2940 PRINT" CSPACE9, YELLOW 3 ( CBLACK 33CYELLOW3LOCK 

CSPACE , BLACK 3flC YELLOW 3 VA I LABLE CSPACE , BLACK 3fl 

CYELLOW3AP) " \ <039> 

2950 PR I NT " CD0WN2 , SPACE ■ BLACK 3 F_0LMlfiT 

: CSPACE , CYAN 3HOR I ZONTAL CSPACE , BLACK 3- CSPACE , 

CYAN33EKTOREN" <019> 

2960 PR I NT " CSPACE9 3 VERT I KAL CSPACE3 , BLACK 3- 

C SPACE, CYAN 35PUREN" <147> 

2970 PRINT" CDOWN,RIGHT-BLACK3 Z£-I_CJtE>lJB£JD£_UTUNG 

: CSPACE , CYAN 3 ' * ' CBLACK 3= CCYAN 3 JLOCK CSPACE 3 

BELEGT;" <127> 

2980 PRINT TAB (19) "CCYAN 3'-' CBLACK 3=CCYAN3.S_OCK 

C SPACE 3FRE I ; " < 1 48 > 

2990 PRINT TAB (19)" CCYAN 3 '/'CBLACK 3= CCYAN 3JLOCK 

CSPACE3NICHTCSPACE3VOR-":PRINT TAB(23) "HANDE 

N- " <253> 

3000 GOSUB 5230: GOSUB 5280 <176> 

3010 T1*=" ,, :L*= ,,M : GOSUB 3780: GOSUB 5320 

:PRINT#4,"CSPACE5 3"; <231> 

3020 GOSUB 4240 : C*= " W " : C3= 1 : GOSUB 4030 < 06 1 > 
3030 PRINT#4, ,, BLOCKBELEGUNGSPLAN":PRINT#4:C3=0 

: GOSUB 4030: GOSUB 4270 <009> 

3040 C*="3":C3=24: GOSUB 4030: PRINT#4, " CSPACE53"; 



<049> 



:GOSUB 4240:PRINT#4,DI*; 
3050 GOSUB 4270:PRINT#4,DN*; : GOSUB 4240 

:PRINT#4, "ID: ";: GOSUB 4270 
3060 PRINT#4,ID* 
3070 PRINT#4:PRINT#4," CSPACE5 3 

S"CHR* ( 101 ) CHR* ( 107) CHR* ( 1 16) CHR* (111) CHR* ( 1 



s 



<01 
<168> 



14) 



<060> 



3080 PRINT#4, " CSPACE17 31 CSPACE 31 CSPACE 31 CSPACE 3 
1 CSPACE 31 CSPACE 31 CSPACE 31 CSPACE 3 I CSPACE 31 



J 



2M? 
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215> 



i 



CSPACE 3 1 CSPACE 32 CSPACE3 3FREIE" 
3090 PR I NT#4 , " CSPACE5 3 " CHR$ ( 1 1 2 ) " C SPACE2 30 

CSPACE 3 1 CSPACE 32 CSPACE 33 CSPACE 34 CSPACE 35 

CSPACE 36 CSPACE 37 CSPACE 38 CSPACE 39 CSPACE 30 

CSPACE 3 1 CSPACE 32 CSPACE 33 CSPACE 34 CSPACE 35 

CSPACE 36 CSPACE 37 CSPACE 38 CSPACE 39 CSPACE 30 

CSPACE3 3"; <207> 

3 100 PR I NT#4 , " BL " CHRS ( 92 ) " CKE " 

: PRINT#4, " CSPACE5 3"CHR* ( 1 17) < 179> 

3110 GF=0:BP=4:GOSUB 3840 <233> 

3120 FOR 1=1 TO 35: IF 1=1 THEN 3380 <091> 
3130 BOSUB 3390: IF K10 THEN PRINT#4, " CSPACE5 3 

"I; :GOTO 3150 <183> 

3140 PRINT#4,"CSPACE43"I; <016> 

3150 FOR J=l TO 4:GET#3,A*: IF A*=""THEN A$=CHR$ 

(0) <200> 

3160 AC=ASC(A$) : IF J=l THEN FB=AC: GF=GF+FB 

:GOTO 3210 <046> 

3170 Tl=2*(AC/2-INT(AC/2) ) : T1$=RIGHT$ (STR* (Tl ) , 

1) <241> 

3180 L*=L*+Tl$:AC=INT<AC/2) : IF AC=0 THEN 3200 

< 205 > 
3190 GOTO 3170 
3200 L*=L*+LEFT$ (NU* ,8- (LEN (L*> - < J-2) *8) ) 

:GOTO 3220 
3210 IF 1=18 THEN GF=GF-FB 
3220 NEXT J 

3230 FOR J=l TO 21: IF J<=MSE THEN 3250 
3240 PR I NT#4 , " / CSPACE 3 " ; : GOTO 3270 
3250 IF MID$<L*,J f 1)="0"THEN PRINT#4, "* CSPACE 3"; 

:60TD 3270 <164> 

3260 PRINT#4,"- CSPACE 3"; <108> 

3270 NEXT J: IF FB<10 THEN PRINT#4, " CSPACE2 3 



<214> 

<029> 
<043> 
<108> 
<041> 
<233> 



<183> 

<160> 

<081> 

I 

<199> 

<144> 



0"RIGHT$(STR*(FB) , 1 > : GOTO 3290 
3280 PRINT#4," CSPACE ]" FB 
3290 L$="" :NEXT I 
3300 FOR 1 = 1 TO 51:PRINT#4,"CSPACE3": :NEXT 

:IF GF>99 THEN PRINT#4," " : GOTO 3320 

3310 PRINT#4," CSPACE 3 — " 

3320 FOR 1=1 TO 54-LENCSTR* (GF) ) 

s PR I NT#4 , " CSPACE 3 " ; : NEXT I : PR I NT#4 , GF : GF=0 

<061> 
3330 GOSUB 4360:PRINT#4:PRINT#4:PRINT#4 <123> 
3340 GOSUB 3930: GOSUB 5060 <007> 

3350 PR I NT " CDOWN , R I GHT , BLACK 3.HE I TERE CSPACE 3 

fil SKETTE CSPACE, YELLOW 35/ Ji?";: GOSUB 5110 <157> 

3360 IF A $=" J" THEN 2900 <175> 

3370 GOTO 190 <090> 

3380 MSE=21 : PRINT#4 , " CSPACE5 3 "CHR$ ( 1 14) " 1 CSPACE 3 

";:GOTO 3150 <155> 

IF I=>1 AND I<=17 THEN MSE=21:G0T0 3430 

<166> 
I<=24 THEN MSE=19:G0T0 3430 

<237> 
I<=30 THEN MSE=18:G0T0 3430 

<241> 
I<=35 THEN MSE=17 



3390 



3400 IF I=>18 AND 



3410 IF I=>25 AND 



3420 IF I=>31 AND 

3430 RETURN 

3440 : 

3450 : 

3460 REM*************ENDE************** 

3470 : 

3480 PRINT"CCLEAR,GREEN3"CHR*(9);:CLOSE 4 

sPOKE HF,0 
3490 POKE 788, 49: CLR: GOTO 5430 
3500 : 
3510 : 

3520 REM*******UP FILE VORHANDEN******* 
3530 SP=18:SE=1:BP=0:P*="" 
3540 GOSUB 3780 
3550 GOSUB 3810: GOSUB 3870 
3560 BP=2: GOSUB 3840 

3570 GET#3,A*:IF A*=""THEN A*=CHR*C0) 
3580 IF ASC(A*)=0 THEN 3660 
3590 GET#3,A*,A* 
3600 FOR 1=1 TO 16 

3610 GET#3,A$:IF A$=""THEN A$=CHR*(0) 
3620 IF A*=CHR$( 160) THEN 3640 
3630 P*=P$+A*:NEXT 
3640 PRINT" CUP, RIGHT1 1 ,SPACE18 3" 

s PRINT" CUP,RIGHT113"P$ 
3650 IF F*=P*THEN P*="":GQTO 3700 
3660 BP=BP+32:IF BP>226 THEN P$="":GQTO 3680 

<134> 
3670 GOSUB 3840: P$="" 2 GOTO 3570 <246> 



<111> 
<001> 
<183> 
<193> 
<170> 
<213> 

<136> 
<235> 
<243> 
<253> 
<018> 
<156> 
<064> 
<221> 
<001> 
<173> 
<104> 
<045> 
<214> 
<214> 
<247> 
<161> 

<078> 
<009> 



<245> 
<046> 
<201> 
<007> 



3680 IF S1=0 THEN GOSUB 3930: GOTO 4840 
3690 GOSUB 3930: SP=S1 : SE=S2: BP=0: GOTO 3550 
3700 BP=BP+1: GOSUB 3840 
3710 GOSUB 3870:SP=S1:SE=S2 
3720 BP=BP-1: GOSUB 3840: GOSUB 3870 
:FT=(S1 OR 128) AND 135 

3730 FT*=FT$(132-FT> 

3740 BP=BP+28: GOSUB 3840: GOSUB 3870: FL=S1+256*S2 

<061> 
3750 FL$="CA. "+STR$(FL)+" CSPACE 3BLOCKS": SI =SP 

=SE <043> 

RETURN 



<101> 
<250> 



3760 
3770 
3780 



<076> 

< 002 > 
<248> 
<046> 
<032> 

< 030 > 
<034> 



REM*****FLOPP Y INITIALISI EREN***** 
3790 OPEN 1,8,15,"I":CL0SE 1 : RETURN 
3800 : 

3810 REM************B-R/B-P************ 
3820 OPEN 2,B,15:0PEN 3,8,2,"#" 
3830 PRINT#2,"U1 CSPACE 32 CSPACE 30 CSPACE 3 H ; SP; SE 

<215> 
3840 PRINT#2,"B-PCSPACE32CSPACE3" ;BP 
3850 RETURN 
3860 : 

3870 REM*********2 BYTES HOLEN********* 
3B80 GET#3,A1$,A2$:IF A 1$=" "THEN A*i $=CHR$ ( ) 

<059> 
3890 IF A2*=""THEN A2$=CHR$(0) 
3900 S1=ASC<A1$) :S2=ASC(A2$):ND=S1*S2 
3910 RETURN 



<007> 
<167> 
< 093 > 
<223> 



<145> 
<128 



> 



REM******KANAELE SCHL I ESSEN******* 
CLOSE 3 s CLOSE 2: RETURN 



<227> 
<153> 
<252> 
<026> 
<183> 



<185> 
<002> 
<189> 
<051> 
<233> 
<075> 



3930 

3940 

3950 : 

3960 REM****DRUCKER INITIAL IS I EREN***** 

3970 PRINT#4,CHR$(27) ;CHR*(64) ; 

3980 PRINT#4,CHR* (27) ; CHR$ (115); CHR$ ( 1 ) ; 

3990 RETURN 

4000 : 

4010 REM*******SCHRIFTART SENDEN******* 

4020 PRINT#4,CHR* (CI ) ; CHR$ (C2) ; CHR* (C3) ; : RETURN 

<219> 
4030 PR I NT#4 , CHR* ( 27 ) ; C$ ; CHR* ( C3 ) ; : RETURN 
4040 : 

4050 REM*********KOPF DRUCKEN********** 
4060 GOSUB 4220: PRINT#4, A* (0) : : GOSUB 4270 

: PR I NT#4 , " CSPACE3 3 " 5 F* 
4070 GOSUB 4220 : PR I NT#4 , A* ( 1 ) ; : GOSUB 4270 

: PRINT#4 , " CSPACE8 3" ; FT* 
4080 GOSUB 4220: PRINT#4,A$ (2) :: GOSUB 4270 

s PR I NT#4 , " CSPACE2 3 " ; FL* 
4090 IF A=4 THEN 4190 
4100 GOSUB 4220:PRINT#4,A$(3) ;: GOSUB 4270 

sPRINT#4,SP; 
4110 IF SP<10 THEN PRINT#4,"CSPACE3"; 
4120 PRINT*4," CSPACE3 3";:GOSUB 4240 

:PRINT#4,A*<4) ; : GOSUB 4270: PRINT#4,SE; 
4130 IF BN>0 THEN PRINT#4, " CSPACE3 3" ; :GOTO 

<217> 
4140 PR INT#4," CSPACE 3": GOTO 4180 
4150 IF SE<10 THEN PRINT#4, " CSPACE 3" ; 
4160 GOSUB 4240: PRINT#4, "fi"CHR$ ( 108) CHR* (111) CH 

R*<99)CHR*<107) ": "; <174> 

4170 GOSUB 4270:PRINT#4,BN <118> 

4180 GOSUB 4250:PRINT#4:PRINT#4," CSPACE5 3";A*(5) 

<094> 
4190 GOSUB 4280 
4200 RETURN 
4210 : 

4220 REM*****SCHRIFTART AUSWAEHLEN***** 
4230 PRINT#4," CSPACE5 3"; 

4030 
4030 



<180> 
<017> 
<202> 

<066> 

<161> 

<164> 
<048> 

<099> 
<126> 



<032> 
4150 

<008> 
<155> 



4240 C*="-":C3=1: GOSUB 

4250 C$="E":C3=0: GOSUB 

4260 RETURN 

4270 C*="-": GOSUB 4030 

4280 C$="F": GOSUB 4030 

4290 RETURN 

4300 C*="M":C3=0: GOSUB 4030 

4310 RETURN 

4320 C$="P":C3=0: GOSUB 4030 

4330 RETURN 

4340 C*="0" :C3=0: GOSUB 4030 

4350 RETURN 

4360 C$="2":C3=0: GOSUB 4030 

4370 RETURN 

4380 : 



<201> 
<006> 
<188> 
<166> 
<013> 
< 075 > 
<108> 
<066> 
<214> 
<249> 
<096> 
<166> 
<116> 
<189> 
<136> 
<177> 
<156> 
<200> 
<177> 
<103> 
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4390 REM*******BYTES AUSDRUCKEN******** <184> 
4400 GOSUB 4340 <153> 

4410 LZ=32*CAN/8-INT(AN/8) ) :L1*=LEFT* <LZ*,LZ) 

:IF EB=>0 THEN AN=INT (EB/8) *8 <253> 

4420 LZ=32-32*< (EN+1) /B-INT< (EN+1 ) /8) ) 



: IF LZ=32 THEN LZ=0 
4430 L2*=LEFT*<LZ$,LZ) 
4440 BP=AN:BOSUB 3840 
4450 FOR J=AN TO EN STEP 



<201> 
<104> 
<210> 
8: H$=STR$ ( J ) : L1=LEN <H*) 



I !$:='•» 



4460 H*= " CSPACE6 3 " +LEFT* ( NU* , 4-L 1 ) +R I GHT* ( H* , 

L 1 - 1 ) +CHR$ ( 62 ) + " CSPACE3 3 
4470 GOSUB 4300 
4480 PRINT#4,H*;L1*; :L1$="" 
4490 FOR 1=0 TO 7 
4500 GET#3,A$:IF A*=""THEN A*=CHR*<0) 

4510 IF EB=>0 AND J+KEB THEN A*= ".": GOSUB 
:GOTO 4560 

4520 AS=ASC ( A* ) : I *=STR* < AS ) : L2=LEN ( I * ) 



<190> 

<219> 

<171> 

<034> 

<083> 

4730 

<209> 

<104> 



<047> 
<041> 
<091> 
<006> 



4530 I*=LEFT$ <NU*,4-L2) +RIGHT* ( I* ,L2-1 ) + " [SPACE 3 

*•: I1$=I1$+I$ 
4540 GOSUB 4650 
4550 IF J+I=EN THEN 4570 
4560 NEXT I: 1=1-1 

4570 IF J+I=ElNf THEN 1 1$=I 1$+L2$: J=EN:L2*=" " 

<116> 
4580 I1*=I1$+" CSPACE23" <209> 

4590 PR I NT#4 ,11*;: GOSUB 4320 < 096 > 

4600 B*=LEFT* ( B$ , LEN < B* ) ) +R I GHT* ( NU* f 8-LEN < B$ ) > 

<090> 
4610 PRINT#4,B*:B*="" <008> 

4620 NEXT J <234> 

4630 GOSUB 4360: PR I NT#4: RETURN <080> 

4640 : <076> 

4650 REM***OPERAT. IN ZEICHEN UMWAND.*** <087> 
4660 IF AS<32 OR AS>90 THEN A$= " . " : GOTO 4750 

<158> 
4670 IF AS=170 THEN A$="+": GOTO 4750 
4680 IF AS=171 THEN A*="-":GOTO 4750 
4690 IF AS=173 THEN A$="/":GOTQ 4750 
4700 IF AS=172 THEN A*= M *":GOTO 4750 
4710 IF AS=173 THEN A$="/":GOT0 4750 
4720 IF AS=177 THEN A$=" >"s GOTO 4750 
4730 IF AS=178 THEN A$="=":GOTO 4750 
4740 IF AS=179 THEN A$="<" 
4750 B*=B$+A$: RETURN 



<121> 
<134> 
<148> 
<152> 
<16B> 
<197> 
<207> 
<070> 
<245> 
<228> 
<229> 



<102> 
<018> 
<123> 



4760 : 

4770 REM*******EINGABE FILENAME******** 

4780 INPUT" CDOWN , SPACE , BLACK 3£ILENAME 

: CSPACE , YELLOW 3 " ; F$ 
4790 IF LEN(F$)<=16 THEN 4820 
4800 PRINT" CUP, SPACE 13 3"; 
4810 FOR T=l TO LEN <F$) : PRINT" CSPACE 3" ;: NEXT T 

: PRINT" CUP23": GOTO 4780 <231> 

4820 GOSUB 3520:E1=S1:E2=S2 <011> 

4830 ON A GOTO 870,1200,1200,1770 <195> 

4840 PRINT" C DO WN2, SPACE, WHITE 3 

JM-LEL KJXJiT. .VJDLRKflKltEM ' " <154> 

4850 PRINT" CDOWN , SPACE 3£1 CBLACK 3=fc!EUE CSPACE 3 

<147> 
<020> 
<164> 



<182> 
<136> 
<113> 
<077> 
<130> 
<227> 
<010> 
<247> 
<173> 
<046> 



£1 NGABE CSPACE2 , WH I TE 3£3 CBLACK 3=flENUE " 
4860 GET A* 

4870 IF A*=CHR*< 133) THEN 210 
4880 IF A*=CHR*< 134) THEN 190 
4890 GOTO 4860 
4900 : 

4910 REM******2 BLOCKS PRO SEITE******* 
4920 AB=AB+1:IF AB=2 THEN 4940 
4930 RETURN 

4940 AB=0:PRINT#4,CHR$< 12): GOSUB 3960 
4950 RETURN 
4960 : 

4970 REM******EINGABE BLOCKNUMMER****** 
4980 PRINT" CDOWN, RIGHT, WHITE 3JLI LE CSPACE 3BELEGT"; 
FL " CSPACE 3S-OECKE ! " < 1 45 > 

4990 INPUT" CDOWN, RIGHT, BLACK 3A-OCKNUMMER 

: CSPACE2,YELLOW3";BN:IF BN< 1 OR BN>FL THEN G 
OSUB 3930: GOTO 210 <143> 

5000 Nl=l <253> 

5010 IF N1=BN THEN 5040 <097> 

5020 SP=S1:SE=S2:BP=0: GOSUB 3830: GOSUB 3870 

<109> 
5030 Nl=Nl+l:GOTO 5010 <205> 

5040 ON A GOTO 0,1210,1450 <052> 

5050 : <007> 

5060 REM******SEITENVORSCHUB J/N******* <131> 



5070 PR I NT ■ CDOWN , R I GHT , BLACK 33E I TENVORSCHUB 

CSP ACE3 , YELLOW 3£/ M? " ; : GOSUB 5110 
5080 IF A$="J"THEN GOSUB 4940 
5090 RETURN 
5100 : 

5110 REM********TASTATURABFRAGE******** 
5120 GET A* 

5130 IF A$="J"THEN PRINT" CLEFT4, CYAN 3£" 
:GOTO 5160 

5140 IF A*="N"THEN PRINT" CLEFT2, CYAN 1H" 
:GOTO 5160 

5150 GOTO 5120 

5160 FOR T=l TO 1000: NEXT T: RETURN 
5170 : 

5180 REM*********F1 - ABFRAGE********** 

5190 GET A* 

5200 IF A$=CHR*< 133) THEN RETURN 

5210 GOTO 5190 



<157> 
<032> 
<131> 
<057> 
<152> 
<026> 



<062> 

<022> 
<131> 
<049> 
<128> 
<137> 
<096> 
<234> 
<198> 
<178> 

5230 REM*******DISKETTE EINLEGEN******* <001> 
5240 PRINT" C DOWN, SPACE, YELLOW 3 ZJU CSPACE 3 

BEARBEITENDECSPACE3fiISKETTECSPACE3EINLE6EN ! ■ 

<230> 
5250 IF A=5 OR A=6 THEN RETURN <087> 

5260 FOR T=l TO 1000: NEXT T: RETURN <149> 

5 <228> 

REM*******FERT I G F 1 ******** < 05 1 > 

5290 PRINT" C SPACE, YELLOW 3££RT I G CSPACE, BLACK 3 

CSPACE, YELLOW 3£1 " 

<239> 
5300 GOSUB 5180: RETURN 
5310 : 

5320 REM****DISK.-NAME UND ID LESEN**** 
5330 SP=18:SE=0:BP= 144: GOSUB 3810 
5340 D*="":J=0 
5350 FOR 1=1 TO 20: GET#3,A$: IF 

*<0> 
5360 IF J>0 THEN 5380 
5370 IF A*=CHR*< 160) THEN J=I-1 
5380 D*=D*+A$ 
5390 NEXT I 
5400 DN$=" CSPACE 3 " +LEFT* <D$ , J > +*' CSPACE2 3 " 

:ID*=" CSPACE3"+RIGHT*(D*,2) 
5410 RETURN 
5420 : 

END 



> 
<012> 
<077> 
<002> 
<1B0> 
A*=""THEN A*=CHR 

<149> 
<049> 
<187> 
<170> 
<238> 



GOTO 5390 



<211> 
<197> 
<123> 
<203> 
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Commodore 64 
Super Action-Spiele 
auf Diskette 





Mr. Robot 

Action-Spiel 

Ihre Aufgabe ist es hier, mit einem Roboter alle 
Power-Pills in einem Gewirr von Magneten, 
Trampolinen, Beamern, Bomben und leben- 
dem feuer aufzusammeln. Ganze 22 Levels 
beinhaltet dieses aufregende Spiel. Zum 
Gluck hat unser Robi »Energizer«-Pillen, mit 
deren Hilfe er ungefahr durchkommt — doch 
die Anzahl ist begrenzt! 
Best.-Nr. MD 221 A nR/ | AQ * 

(Sfr. 44,50) 



DM 48, 




V 




v 




Lonely Rider 

Action-Spiel 

Indianerhaben Ihren Kameraden gekidnappt. 

Sie, letzter der Kompanie, wagen sich direkt in 

die Hohle des Feindes, ins Indianercamp. In 
der Wuste, inmitten feindlichen Territoriums, 

mussen Sie und Ihr Pferd »Blacky« Ihre Mut- 

probebestehen. Denn Indianerlauern uberall. 

Uberleben Sie durch reaktionsschnelle Aus- 

weichmanover! Ein Spiel fur den Commodore 

64 mit Diskettenlaufwerk. 

Best.-Nr. MD 225A nR „ AO * 

(Sfr. 44,50) 



DM 48, 




Aztec 

Action-Adventure 

Eines der neuesten und wirklich besten Ac- 
tion-Adventures unserer Zeit! Steuern Sie ei- 
nen Abenteurer (mit 21 versch. Funktionen, 
Keyboard) in eine morderische Pyramide. 
Darin befindet sich das sagenumwogene 
»IDOL«, das schon fur viele den Tod bedeute- 
te. Finden Sie sich zurecht, und ... vor allem 
finden Sie den Schatz. 
Best.-Nr. MD 224A nM AQ * 

(Sfr 4450) UIVI 40,— 





Super Bunny 

Action-Spiel 

Reginald Rabbit, ein kleiner, schmachtiger 
Hase, macht eine merkwurdige Entdeckung: 
Zauberkarotten verleihen ihm Riesenkrafte. 
Jetzt ist Reggie Rabbit kein gewohnlicher 
Hase mehr, sondern Super Bunny. Helfen Sie 
Reggie Rabbit in seinem Kampf fur Freiheit 
und Gerechtigkeit! Erleben Sie seine atembe- 
raubenden Einsatze! 

Best.-Nr. MD 229A n «* A q * 

(Sfr. 44,50) UIYI 40, — 




,SBiKv\Kh 



Gladiator 2000 

Action-Spiel 

Bei »Gladiator« sind Sie der Fahrer eines hei- 
Ben Ofens. Dieser hinterlaBt, wenn er fahrt, 
Reifenabdrucke, die fiir Ihren Gegner todlich 
sind. Versuchen Sie, ihn in die Enge zu trei- 
ben, doch geraten Sie nicht selbst in eine sol- 
che Falle — sie hat todliche Wirkung. Dabei 
kann der Gegner der Computer oder ein 2. 
Spieler sein. Der Spannung sind keine Gren- 
zen gesetzt. 

Best.-Nr. MD 227 A nM OCl * 

(Sfr. 35,50) 



DM 39, 




Cosmic Tunnels 

Action-Spiel 

Sie sind verantwortlich fur den kleinen Plane- 
ten Sirref. Dieser durchlebt gerade eine akute 
Energieknappheit. Es fehlt namlich der 
Grundbaustoff zum Betrieb der Kraftwerke. 
Ihre Aufgabe ist es nun, so viel wie moglich 
dieses Baustoffs von insgesamt 4 Asteroiden 
zu holen. Durchfliegen Sie 4 Zonen und brin- 
gen Sie das lebensnotwendige Material. 
Best.-Nr. MD 222A R . - mq * 

(Sfr. 44,50) UIYI 40, — 



Mastercode-Assembler 

Mastercode ist ein vollstandiges Programm- 
paket fur die Entwicklung von Maschinenpro- 
grammen. Neben dem eigentlichen Assem- 
bler sind noch verfugbar: ein Editor zur Einga- 
be von QuelJtext ■ Ein Debugger, der Einzel- 
schrittverarbeitung ermoglicht • ein Disas- 
sembler • Funktion zur Anzeige und zum An- 
dern des Speicherinhalts. 
Best.-Nr. MK 110A n . . AQ * 

(Sfr. 44,50) UIYI 40, — 

Best.-Nr. MD 110A n «« co * 

(str. 58-) UIYI Do- 




Catastrophes 

Action-Spiel 

Steigen Sie mit »Catastrophes« in das ver- 
ruckteste Baugeschaft ein, das Sie je erlebt 
haben. Ihre Aufgabe ist es namlich, mit Ihrem 
Helikopter ein Gebaude in die Welt 2U setzen, 
das Hurricanes, Fluten und Erdbeben genau- 
so widersteht wie dem Spieleifer eines 2. 
Spielers, bzw. des Computers! Sie haben nur 
6 Tage Zeit, und es gibt viel zu tun! 
Best.-Nr. MD 208A nR ■ AO * 

(Sfr. 44,50) UIYI 40,— 



Castle Nightmare 

Action-Spiel 

Steuern Sie Ihre Spielfigur durch ein unweg- 
sames SchloB voller Hexen, Zauberer, Sen- 
senmanner u.v.m. Sammeln Sie Lebenselexie- 
re und Schlussel, urn in den nachsten Raum 
vorzudringen. Aber jeder beherbergt ein an- 
deres Geheimnis! Seien Sie auf der Hut! Die 
Magie ist gegen Sie! Ein spannendes Spiel 
mit vielen Actionsscreens. 
Best.-Nr. MD 226A n - - qq * 

(Sfr. 35,50) UIYI 03, — 




sbii* ^; 






Photony 

Action-Spiel 

Dieses Spiel verbindet reine Action und raffi- 
nierte Strategie. Bekampfen Sie ein feindli- 
ches Raumschiff mit einer beweglichen La- 
serkanone. Es wird aber zusatzlich von eben- 
falls beweglichen Laserbasen beschutzt. Der 
Clou dabei ist, daB das ganze Aktionsfeld 
ubersat mit Spiegeln ist, die den todlichen La- 
serstrahl reflektieren: 

Best.-Nr. MD 228A n . fl AQ * 

(Sfr. 44,50) UIVI 40,— 



Mark&Technik 

Verlag Aktiengeselischaft 

Hans-Pinsel-Strafte 2, 8013 Haar bei Munchen, S 089/4613-220 
M&T-Vertriebs AG, Alpenstr. 14, CH-6300 Zug, S 042-2231 55/56 



In guten Buchhandlungen, Computershops und Fachabteilungen 

der Kaufhauser. 



* inkl, MwSt. Unverbindliche Preisempfehlung 



MD = Diskette 

MK = Kassette 

A = Commodore 64 
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Disassembler 



C64 





150 INPUT" CLIG.BLUED#tSPACEDANFAN6SfiDRESSE";A* 




Dieser Disassembler fur den C64 ar- 



beitet ausschlieftlich 
malzahlen 



mit 



Dezi- 




Bei vielen Hobby-ProgrammJerern besteht der einzige Kon- 
takt zur Maschinensprache im gelegentlichen Eingeben von 
Basic-Ladem. Da tut man sich insbesondere mit den Hexadezi- 
malzahlen schon mal etwas schwer. 

Hier ist nun ein Disassembler, der sowohl Adressen als auch 
Befehls- und Datenbytes in dezimaler Form ausgibt. 

Das Programm ist sehr einfach anzuwenden und erklart sich 
im ubrigen von selbst, so daB eine weitergehende Beschrei- 
bung hier uberflussig ist, 
Bei der Adressenabfrage gibt es drei mogliche Eingaben: 

1. Die direkte Anfangsadresse (dezimal) 

2. »W« fur weiter 

3. »E« fur Ende 

Bei der folgenden Frage nach der Ausgabe auf Drucker kann 
man wahlen zwischen: 

1 . »J« fur Ja = Druckausgabe 

2. »N» fur Nein (Return reicht) 

Das Programm lauft auf dem C 64, kann aber leicht auch fur 
den VC 20 umgeschrieben werden (in Zeile 10 werden nur die 
Bildschirmfarben eingestellt). 

Die verwendeten Steuerzeichen stellen nur Farben dar und 
konnen folglich frei gewahlt werden. * 

(Stefan Heine / ev) 



-■ 



<065> 
<145> 
<188> 
<069> 
<201> 
<149> 
<150> 
<047> 



1 REM DEZIMAL-DISASSEMBLER 

2 REM 

3 REM STEFAN HEINE 

4 REM WIESENREDDER 1 

5 REM 2330 ECKERNFOERDE 

6 REM 

7 REM 

10 POKE 53280,0: POKE 53281,0 
20 PRINT" CCLEAR, GREY 3,SPACE9 3DISASSEMBLER 

CSPACE231.5" <049> 

30 PRINT" CSPACE 12 3BY CSPACE 3ST. HEINE" <212> 
40 PRINT: PRINT: PRINT ~<103> 

50 PRINT" CYELLOW 3* CSPACE 3 ADRESSEN CSPACE 3BITTE 

CSPACE 3DEZ I MAL CSPACE 3 " 
60 PRINT"CSPACE2 3EINGEBEN! ! !":PRINT 
70 PRINT" C GREEN 3* CSPACE 3 ADRESSEN 

: CSPACE 3W=WE I TER CSPACE 3E=ENDE " : PR I NT 
80 PRINT"*CSPACE3DRUCKER CSPACE 3 

: CSPACE 3' RETURN '=NE IN" 
90 PRINT:PRINT:PRINT 
100 REM COPYRIGHT * ST. HEINE * 
110 DIM M*C255) ,L7.<255) ,F7.(255) ,F1*<12) ,F2*(12) 

<087> 
120 FOR 1=0 TO 255: READ M*(I):NEXT 

:FOR 1=0 TO 255: READ L7.(I):NEXT 

:FOR 1=0 TO 255: READ F7. ( I ) <134> 

130 NEXT:FOR 1=0 TO 12:READ Fl$ ( I ) ,F2* < I ) : NEXT 

:PC=0 <180> 

140 IF IC=1 THEN GOSUB 360: IC=0 <251> 



<170> 
<140> 



<207> 



< 054 > 
<153> 
<062> 



<193> 
160 INPUT" CGREY 3 3# CSPACE 3 AUSGABE CSPACE 3AUF 

CSPACE 3DRUCKER";GC$ 
170 HC*=LEFT$(GC$,1) 

IF HC$="J"THEN IC=1 
J=LEN(A$):IF J>5 THEN 140 
IF A*="W"THEN 230 
IF A$="E"THEN 900 
PC=VAL(A$) 

FOR 1=1 TO 24: DZ=PC: PRINT" CGREEN3"; 
P 1=PEEK (PC) 



180 
190 
200 
210 
220 
230 



<244> 
<047> 
<068> 
<100> 
<065> 
<061> 
<156> 



240 
250 
260 



■^^-> 







<061> 
<112> 
<212> 



ON L7. (PI) GOSUB 260,270, 
NEXT: GOTO 140 

PRINT TAB(1) ,, CRED3";PC; :PRINT TAB (9) " CGREEN3 
";P1: :PRINT n CBLUE3";TAB(24) ;M$(P1) :PC=PC+1 



: RETURN 



<011> 



270 PRINT TAB(I> "CRED 3" ;PC; : PRINT TAB (9) " CGREEN3 
"; PI ; :P2=PEEK(PC+1) : PRINT TAB(13)P2; <238> 
280 PRINT" CBLUE3":TAB(24)M$(P1) ;" CSPACE, 

LIG.BLUE3"; 
290 IF F7.(P1)=9 THEN P2=PEEK (PC+1 ) 

:IF P2<128 THEN P2=PC+P2+2: GOTO 310 
IF F%(P1)=9 THEN P2=PC- (255-P2) +1 
PRINT F1$<FZ(P1) ) ;P2;:DZ=P2:G0T0 320 
PR I NT F &Z < F7. ( P 1 ) ) : PC=PC+2 : RETURN 
PRINT TAB(l) "CRED3";PC; :PRINT TAB (9) " CGREEN3 
M ; PI ; :P2=PEEK (PC+1) : PRINT TAB(14)P2; <043> 
340 P3=PEEK(PC+2) : PRINT TAB(19)P3; 

SPRINT" CBLUE3"; TAB (24); M* (PI)" CLIG.BLUE3"; 



300 
310 
320 
330 



<025> 

<148> 
<238> 
<085> 
<186> 



:P4=(P3*256)+P2 
350 PRINT P4;F1$(F7. (P1));:DZ=P3*256+P2 

: PR I NT F2* < FV. ( P 1 ) ) : PC=PC+3 : RETURN 
360 OPEN 4,4:PRINT#4,CHR$(15) 
VB=1024: VC=55296 

FOR I=VB TO VB+999 STEP 40:P*="" 
FOR J=0 TO 39:X=PEEK(I+J) 
IF X<32 THEN X=X+64:G0T0 440 
IF X<64 THEN 440 

X<96 THEN X=X+32:GQTD 440 



370 
380 
390 

400 
410 
420 
430 
440 
450 
460 
470 



IF 

IF X<128 THEN X=X+64:60T0 440 

P*=P:$:+CHR$CX) 

NEXT : PRINT#4 , P*: NEXT: CLOSE 4: RETURN 

REM*** DATAS BEFEHLSLISTE *** 

DATA BRK , ORA , ??? , ??? , ??? , ORA , ASL , ??? , PHP , 



<19B> 

<081> 

< 076 > 
<020> 
<211> 
<216> 
<004> 
<218> 
<029> 
<088> 
<109> 
<125> 

< 063 > 



ORA, ASL, 



OT? '-*'->'-} 



, ORA, ASL,??? 



<008 



, : - 



480 DATA BPL, ORA, ???,???,???, ORA, ASL, ???,CLC, 

ORA , ??? , ??? , ??? , ORA , ASL , ??? <216> 

490 DATA JSR, AND, ???,???, BIT, AND, ROL,???,PLP, 

AND,ROL,???,BIT,AND,ROL,??? <095> 

500 DATA BM I, AND, ???,???,???, AND, ROL,???, SEC, 

AND , ??? , ??? , ??? , AND , ROL , ??? < 205 > 

510 DATA RTI,EOR,???,???,???,EOR,LSR,???,PHA, 

EOR , LSR , ??? , JMP , EOR , LSR , ??? < 1 58 > 

520 DATA BVC, EOR, ???,???,???, EOR, LSR, ???,CL I, 

EOR , ??? , ??? , ??? , EOR , LSR , ??? < 054 > 

530 DATA RTS, ADC, ???,???,???, ADC, ROR,???,PLA, 

ADC,ROR,??? f JMP,ADC,ROR,??? <079> 

540 DATA BVS, ADC, ???,???,???, ADC, ROR,???,SE I, 

ADC, ???,???,???, ADC, KOR,??? <239> 

550 DATA??? , STA , ??? , ??? , STY , STA , STX , ??? , DEY , ??? , 

TXA,???,STY,STA,STX,??? <239> 

560 DATA BCC, STA, ???,???, STY, STA, STX, ???,TYA, 

STA, TXS, ???,???, ST A ,???,??? <200> 

570 . DATA LDY , LDA , LDX , ??? , LDY , LDA , LDX , ??? , TAY , 

LDA,TAX,???,LDY,LDA,LDX,??? <217> 

580 DATA BCS, LDA, ???,???, LDY, LDA, LDX, ???,CLV, 

LDA, TSX,???, LDY, LDA, LDX,??? <176> 

590 DATA CPY,CMP,???,???,CPY,CMP,DEC,???,INY, 

CMP , DEX , ??? , CP Y , CMP , DEC , ??? < 1 97 > 

600 DATA BNE, CMP, ???,???,???, CMP, DEC, ???,CLD, 

CMP , ??? , ??? , ??? , CMP , DEC , ??? < 025 > 

610 DATA CPX,SBC,???,???,CPX,SBC,INC,???,INX, 

SBC,N0P,???,CPX,SBC,INC,??7 <221> 

620 DATA BEQ, SBC, ???,???,???, SBC, I NC,???,SED, 



SBC , ??? , ??? , ??? , SBC , I NC , ??? 
630 REM*** DATAS 1,2 ODER 3 BIT *** 
640 DATA 1,2,1,1,1,2,2,1,1,2,1,1,1,3,3, 



1,1,2,2,1,1,3,1,1,1,3,3,1 



650 DATA 3,2,1,1,2,2,2,1,1,2, 
1,1,2,2,1,1,3,1,1,1,3,3,1 

660 DATA 1,2,1,1,1,2,2,1,1,2,1 
1,1,2,2,1,1,3,1,1,1,3,3,1 

1,1,1,2,2,1,1,2, 



1 , 1 ,3,3,3, 1 ,2 



<053> 
<059> 

2,1, 
<139> 

1, 
<154> 



i^t 



,3 



,3,3,1,2 



^21 



<161> 



670 DATA 1,2, 



1,1,3,3,3,1 



^21 






v 
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• 






v 



1,1,2,2 
680 DATA 1 

1,2,2,2 
690 DATA 2 

700 DATA 2 
11^2 

710 DATA 2 
112 2 

720 REM*** 
730 DATA 
740 DATA 9 
750 DATA 3 
760 DATA 9 
770 DATA 
780 DATA 9 
790 DATA 
300 DATA 9 
810 DATA 
820 DATA 
830 DATA 
840 DATA 
850 DATA 
860 DATA 9 
870 DATA 2 
880 DATA 9 
890 DATA, , 
" , X ) " , ( 
900 END 



9 
2 

9 



,1,1,3,1,1,1,3,3,1 
,1,1,3,1,1,1,3,1,1 

, 1 , 1 , .. T 1 , 1 , O , o , O , 1 

,1,1,3,1,1,1,3,3,1 

, A -,X,X,^-,^.,^.,X,X,X- 

,1,1,3,1,1,1,3,3,1 
DATAS BEFEHLART ( 
,10,0,0,0,4,4,0,0, 
,11,0,0,0,5,5,0,0, 
,10,0,0,4,4,4,0,0, 
, 11 ,0,0,0,5,5,0,0, 
,10,0,0,0,4,4,0,0, 
, 11 ,0,0,0,5,5,0,0, 
,10,0,0,0,4,4,0,0, 
,11,0,0,0,5,5,0,0, 
,10,0,0,4,4,4,0,0, 
, 11,0,0,5,5,6,0,0, 
,10,2,0,4,4,4,0,0, 
, 11 ,0,0,5,5,6,0,0, 
,10,0,0,4,4,4,0,0, 
, 11 ,0,0,0,5,5,0,0, 
,10,0,0,4,4,4,0,0, 
,11,0,0,0,5,5,0,0, 

44. II V Bl ■* 

, ^ , T * v » ' 1 



s 

V 



,1,1, -_>,->, 3, 1,-i. 
, 1 , 1 , O , -■ , -j- , 1 , •*. 
,1,1,3,3,3,1,2 
,1,1,3,3,3,1,2 



ZEICHEN)*** 

2,1,0,0,3,3,0 

8,0,0,0 

2,1,0,3 

8,0,0,0 

2,1,0,3 

8,0,0,0 



2 



,1,0,12,3,3,0 



8,0,0,0 
0,0,0,3 
8,0,0,0 
2,0,0,3 
8,0,0,7 
2,0,0,3 
8,0,0,0 
2,0,0,3 
8,0,0,0 
Y",,",X 



7 
3 

7 



7 
3 

7 

7 
3 

7 
3 

7 



7,0 
3,0 
7,0 
3,0 
7,0 



7,0 

3,0 
0,0 
3,0 
8,0 
3,0 
7,0 
3,0 
7,0 
",Y" 



<171> 
2 1 

<180> 

,2,1, 
<197> 
7 1 

< 203 > 

<213> 
<174> 

< 053 > 
<088> 
<083> 

< 1 08 > 
<097> 
<129> 
<165> 
<117> 
<138> 
<168> 
<164> 
<203> 
<182> 
<209> 
<202> 
<229> 

Ml M 

<065> 
<007> 



Mouse 




Das Programm Mouse 64 stellt eine Interrupt- Erweiterung 
des C64 dar und vertragt sich somit nicht ohne eine Anpas- 
sung mitanderen Interrupt-Erweiterungen. Das Programm er- 
zeugt nach Aufruf eine »Maus« auf dem Bildschirm, die sich mit 
einem Joystick (Port It) steuern laBt. Die Abfrage erfolgt durch 
eine in den Interrupt eingebundene Routine, so daB die Tasta- 
tur weiterhin benutzbar bleibt. 

Mouse 64 ist vollstandig in 6502/1 0-Assembler geschrie- 
ben und benotigt keinen Basic-Speicher, da Mouse 64 im frei- 
en RAM-Bereich von 49152 ($c000) bis 53272 ($cfff) liegt. 
Die Sprite-Daten liegen in Block 11 (dez. 704-767). Urn die 
Maus darzustellen, wird Sprite 7 verwendet. Das Programm 
liefert folgende Daten: 

a) Den Bildschirmcode des Zeichens unter der Maus 

b) Die Bildschirm-X-Koordinate 

c) Die Bildschirm-Y-Koordinate 

d) Joystick #2-Zustand 

e) Feuerknopf#2-Zustand 

Das Programm Mouse 64 ist als Eingabe- und Steuerhilfe fur 
Anwendungsprogramme gedacht (siehe Apple-Macintosh- 
Software und andere), kann aber auch durch zum Beispiel An- 
derung des Sprites in Spiele eingebunden werden, da bis auf 
die VergroBerung alle Spriteparameter veranderlich bleiben. 

Zu Listing 1 

Das Listing 1 zeigt den Basic-Lader, der in zwei Schleifen die 
Daten fur den Sprite und das Assemblerprogramm aus den 
DATA-Zeilen liest und in die entsprechenden Speicherstellen 
schreibt. 

Bei einem Fehler der Daten bricht der Computer das Pro- 
gramm mit einer entsprechenden Meldung ab. 

Nach Ablauf der beiden Schleifen wird das Assemblerpro- 
gramm direkt mit »SYS 491 52« gestartet. 



Zu Listing 2 

Das zweite Listing zeigt die in Assembler geschriebene 
Initialisierungs-Routine. Diese Routine verandert die Interrupt- 
Zeiger so, daB sie auf die Maus-Routine zeigen. Ferner veran- 
dert sie die zu Sprite 7 gehorenden Parameter entsprechend. 

Die Initialisierungsroutine gibt den Text: 

PUT JOYSTICK IN PORT 2 

AND PRESS ANY KEY 
aus. Wenn man diesem Folge geleistet hat erscheint eine 
»Maus« in der linken oberen Ecke und der Computer arbeitet 
normal im Programm beziehurigsweise im Direktmodus weiter. 
Die Maus laBt sich — wie gesagt — mit dem Joystick #2 
steuern. 

Zu Listing 3 

Listing 3 zeigt die eigentliche Interrupt-Erweiterung. Diese 
beginnt mit dem Auslesen des Joystickzustandes. Dazu muB 
bekanntlich die Tastatur abgeschaltet werden. Das Programm 
schaltet also die Tastatur ab, liest das Register fur den 
2. Joystick aus und schaltet die Tastatur wieder ein. So bleibt 
die Tastatur weiterhin benutzbar. 

Daraufhin wird an hand der Joystickstellung der Sprite 7, 
also die Maus, bewegt. Ist dies erfolgt, werden aus den Sprite- 
koordinaten die Bildschirmkoordinaten errechnet. Sind diese 
bekannt, so wird daraus das entsprechende Byte unter der 
Maus errechnet und ausgelesen. 

Diese Werte sind folgenden Registem zu entnehmen: 

1 . Der Zeichencode des unter der Maus befindlichen Zei- 
chens: 49659 ($dfb) 

2. Die Bildschirm-X-Koordinate : 49660 ($dfc) 

3. Die Bildschirm-Y-Koordinate : 49661 ($dfd) 

4. Der Feuerknopf #2 : 49662 ($dfe) ( = 1: gedruckt/ = 
nicht gedruckt) 

5. Der Zustand des Joysticks : 49663 ($dff) 

Zu Listing 4 

Listing 4 zeigt den Hex-Dump des Assembler-Programms. 
AbschlieBend ware noch zu sagen, daB es keinen Sinn hat, zu 
versuchen, das Programm anderer Computer, die nicht wie der 
C 64 in der Lage sind, frei bewegliche Sprites zu erzeugen, da 
ein solcher Sprite notig ist. 

(Peter Dreuw / rg) 



Listing 1. Der Basic-Lader der «Mouse 64« 




l 

2 
3 
4 



REM 
REM 
REM 
REM 
REM 



********************** 



5 REM 



* 



MOUSE 64 



1984 BY 



PETER DREUW 

6 REM * MENNRATHSCHMIDT 

7 REM * 

8 REM * MOENCHENGLADBACH 

9 REM * 
10 
20 



* 
* 

# 
* 
* 
* 

* 



<043> 
<215> 
<229> 
<0B7> 
<231> 
<239> 
<187> 
<234> 
<147> 
<236> 



REM ********************** <053> 

DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 <043> 
30 DATA 48,0,0,120,0,0,252,0,0,252,0,1,254,0,1, 

254 <126> 

40 DATA 0,0,252,0,0,48,0,0,16,0,0,16,0,0,32,0 

<135> 
50 DATA 0,64,0,0,0,0,0,0,0,0,0,0,0,0,0,0 <131> 
60 FOR 1=704 TO 767:READ Q:POKE I ,Q: S=S+Q:NEXT 

<141> 
70 IF SO1610 THEN PR I NT" MOUSE-DATA 'SCSPACE 3 

F ALSCH " : END < 1 37 > 

80 PR I NT " MOUSE-DATA C SPACE 30K " : S=0 < 006 > 

85 REM PRS-DATA <020> 

90 FOR 1=49152 TO 49555: READ Q:POKE I,Q:S=S+Q 
:NEXT ' <125> 

91 DATA 160,231,185,117,191,32,210,255,200,208, 

247, 160,238, 185, 134, 191 ,32 < 100> 

92 DATA 210,255,200,208,247,165,198,201,0,240, 

250, 169,0, 133, 198, 120, 169, 137 <200> 

93 DATA 141,20,3,169,192,141,21,3,169,17,141,14, 

208,169,45,141,15,208,173 <098> 




19 



'» 






94 DATA 21,208,9,128,141,21,208,173,27,208,41, 
127,141,27,208,173,28,208,41 <151> 

95 DATA 127,141,28,208,169,0,141,46,208,169,11, 
141,255,7,88,96,0,0,255,80 <114> 

96 DATA 85,84,32,74,79,89,83,84,73,67,75,32,73, 
78,32,80,79,82,84,32,50,32 <163> 

97 DATA 33,13,65,78,68,32,80,82,69,83,83,32,65, 
78,89,32,75,69,89,0,0,0,162 <196> 

98 DATA 224,142,2,220,173,0,220,162,255,142,2, 
220, 141 ,255, 193,41 , 1 ,208, 10 <067> 

99 DATA 173,15,208,201,45,144,3,206,15,208,173, 
255,193,41,2,208,10,169,236 <154> 

100 DATA 205,15,208,144,3,238,15,208,173,255, 
193,41,4,208,41,173,16,208,201 <154> 

101 DATA 128,144,24,173,14,208,240,5,206,14,208, 
208,24,173,16,208,41,127,141 <199> 

102 DATA 16,208,206,14,208,76,232,192,173,14, 
208,201,18,144,3,206,14,208,173 <205> 

103 DATA 255,193,41,8,208,33,173,16,208,201,128, 
144,13,173,14,208,201,72,240 <203> 

104 DATA 19,238,14,208,76,16,193,238,14,208,208, 
8,173,16,208,9,128,141,16 <0B5> 

105 DATA 208,162,0,173,255,193,41,16,208,1,232, 
142,254,193,173,23,208,41,127 <209> 

106 DATA 141,23,208,173,29,208,41,127,141,29, 
208,173,15,208,160,255,56,200 <115> 

107 DATA 233,8,176,251,152,233,4,168,140,253, 
193,173,16,208,201,128,144,20 <116> 

108 DATA 173,14,208,162,255,232,233,8,176,251, 
138,105,30,170,142,252,193,76 <174> 

109 DATA 108,193,56,173,14,208,162,255,232,233, 
8, 176,251 , 138,233, 1 , 170, 142 < 125> 

110 DATA 252,193,169,4,133,252,234,134,251,192, 
0,240,16,24,169,40,101,251 <061> 

111 DATA 133,251,165,252,105,0,133,252,136,208, 
240, 177,251 ,141 ,251 , 193, 165 < 1 16> 

112 DATA 252,76,49,234,0,0,0 <151> 
120 IF SO52007 THEN PRINT M PRB-DATA 'SCSPACED 

FALSCH":END <081> 

130 PRINT-'PRG-DATACSPACEJOK" <041> 

1 40 PR I NT " PRESS [SPACE 3ANY CSPACE DKEY [SPACE DTO 

CSPACE 3START < 2 1 4 > 

150 POKE 198,0! WAIT 198,1 <246> 

160 SYS 49152 <067> 



Listing 2. Die in Assembler geschriebene Initialisierungs- 
routine von »Mouse 64« 
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I NG S 
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C000 


a0 


e7 




ldy 


#$e7 


• r 


C002 


b3 


75 


b-f 


Ida 


$b-f75,y 


• r 


C005 


20 


d£ 


-f-f 


j s r 


$-f-fd2 


■ / 


C008 


c8 






iny 




■ r 


C009 


d0 


f7 




bne 


$C002 


• r 


C00b 


a© 


ee 




ldy 


#$ee 


• r 


C00d 


b9 


86 


bf 


Ida 


$bf86,y 


■ r 


C010 


20 


d2 


-f-f 


jsr 


$-ffd2 


■ r 


C013 


c8 






iny 




• / 


C014 


d0 


f7 




bne 


$C00d 


■ r 


C016 


a5 


c6 




Ida 


$c6 


■ / 


C018 


c3 


00 




cmp 


#$00 


■ r 


c01a 


-f0 


■fa 




beq 


$c016 


■ r 


C01C 


a9 


00 




Ida 


#$00 


• / 


c01e 


85 


c6 




sta 


$c6 


• r 


C020 


78 






se i 




■ r 


C0E1 


a9 


89 




Ida 


♦♦$89 


■ r 


C023 


8d 


14 


03 


sta 


$0314 


■ r 


C026 


a3 


C0 




Ida 


tt$C0 


■ / 


C028 


8d 


15 


03 


sta 


$03 15 


■ r 


c02b 


a9 


11 




Ida 


#$i i 


• r 


c02d 


8d 


0e 


d0 


sia 


$d00e 


• / 


C030 


a9 


2d 




Ida 


#$2d 



* 


r 


C032 


8d 


0-f 


d© 


s-ta 


*d00-f 


■ 


r 


C035 


ad 


15 


d0 


Ida 


$d015 


. 


r 


C038 


03 


80 




ora 


#$80 


■ 


r * 


c03a 


8d 


15 


d0 


sta 
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Wollen Sie Ihre Basic-Programme 
schneller und kiirzer machen? Wollen 
Sie Betriebssystem 



• • 



Zeichensatz 



Ihres C64 andern? Dieses Maschinen- 



pr 



ft 



Problema 






Das Programm entstand durch Zusammenfugen der in der 
praktischen Arbeit am haufigsten gebrauchten Maschinen- 
sprache-Routinen zu einem einzigen groBen Utility-Paket. 

Die belden Bereiche Optimierung von Basic-Programmen 
und Zeichen-Definition stehen im Mittelpunkt. Nach ordnungs- 
gemaBem Laden kann man ein Menu mit »sys 491 52« aufrufen 
(Bild 1), in dem alle Unterprogramme mit Namen und SYS- 
Adresse genannt werden. 

Nun zu den Programmen selbst: 
Space-Killer (sys 49155): Hinter diesem martialisch anmuten- 
den Aufruf verbirgt sich nichts anderes als eine Maschinen- 
Routine, welche uberflussige Spaces aus einem Basic- 
Programm entfernt. 

Nach dem »sys 49155«-Aufruf erscheint in der oberen Bild- 
schirmecke ein farbiges Symbol als Versicherung, daB alles in 
Ordnung ist, denn die Routine kann durchaus bis zu 1/4 Stun- 
de laufen, wenn viele Spaces zu entfemen sind und das Pro- 
gramm entsprechend lang ist. 

Space-Expander (sys 49158): Es erscheint auf den ersten 
Blick befremdend, etwas einzufugen, was man eben erst ent- 
fernt hatte. Doch die Aufgabe liegt auf der Hand: zwischen je- 
den Basic-Befehl ein Space einzufugen, urn das Druckbild 
sauber und ansprechend zu gestalten. 
REM-Killer (sys49161): erklart sich selbst. Erwahnenswert ist 
die Geschwindigkeit, mit der die Routine lauft. 20 kByte- 
Programme werden in etwa 10-30 Sekunden »gesaubert«. 
Zeilen loschen (sys 49164): Hiermit werden ganze Zeilenbe- 
reiche geloscht. Beispiel: »sys 491 64,1 000,1 999« entfernt al- 
le Basic-Zeilen mit den Nummern von 1000 bis 1999 ein- 
schlieBlich. Mit Druck auf die RETURN-Taste ist der Befehl 
schon ausgefuhrt. 

Text suchen (sys 49167,"Suchtext"): Sucht eine Zeichenket- 
te »Suchtext« im Basic-Programm und gibt die gefundenen Zei- 
lennummem aus. 

Eine Besonderheit ist das Jokerzeichen »?«: Hier wird jedes 
Zeichen akzeptiert, es darf allerdings nicht an erster Stelle im 
Suchtext stehen. 

Colon-Maker (sys 49170): Ersetzt jedes Space am Anfang ei- 
ner Basic-Zeile durch einen Doppelpunkt »:«. 
Space-Maker (sys 49173): Ersetzt jeden Doppelpunkt am An- 
fang einer Basic-Zeile durch ein Space » «. Beide Routinen 
dienen als Strukturhilfen. Da alle der Zeilennummer unmittelbar 
folgenden Spaces uberlesen werden, mu6 man erst einen 
»neutralen« Doppelpunkt setzen, diesen dann spater durch ein 
Space ersetzen. 



Package (sys 49179): Hier ist die Notlosung fur jeden, der ein- 
fach mehr Platz braucht und das Basic-Programm garantiert 
nicht mehr korrigieren muB. »Package« schmilzt namlich be- 
nachbarte Zeilen zusammen, so daB bei jeder Verschmelzung 
vier Bytes freiwerden (Ein Null-Byte, Zwei Bytes der Koppel- 
adresse plus Zwei Bytes der Zeilennummer, abzuglich ein Byte 
fur den nun erforderlichen Doppelpunkt als Trennelement). 
Das braucht seine Zeit, weil einige Aspekte kontrolliert werden 
mussen, zum Beispiel ob die zu verschmelzende Zeile ange- 
sprungen wird, dann muB sie mit ihrer Zeilennummer prasent 
bleiben, sonst gibt's Arger mit dem Interpreter, der sich dann 
mit »undefd statement* beschwert. Fur die Verschmelzungs- 
tiefe gibt es leider eine unnaturliche Grenze: Mehr als 255 By- 
tes darf eine Zeile nicht lang sein, sonst kann der Interpreter 
die Zeilen nicht mehr binden und findet hinter einer solchen 
»Megazeile« keine Zeilennummer mehr. 
Urn Basic-Programme auf ein Minimum zu komprimieren, emp- 
fiehlt sich folgender Weg: 

— zuerst »sys 49161« eingeben. Danach sind alle REMarks 
weg, und die folgenden Routinen haben weniger Prufarbeit. 

— dann »sys 491 55« eingeben. Hier werden alle Zeilen 
gestaucht. 

— zuletzt »sys 491 79« eingeben, danach ist Ihr PRG redun- 
danzfrei. 

Fur spatere Anderungsarbeiten wird man sich naturlich ein 
»augenfreundliches« Original verwahren, am besten benutzt 
man von alien Basic-Programmen zwei Versionen: Eine origi- 
nate zur Dokumentation, Korrektur, Ausdruck und eine kompri- 
mierte mit minimalen Platzanspruchen und schneller 
Ausfuhrung. 

CPU-Register ein (sys 49182): Zeigt fortwahrend die Register 
des Mikroprozessors in den beiden oberen Bildschirmzeilen 
an. 

AuBerdem werden der IRQ-, NMI- und der BRK-Vektor sowie 
der Programmcounter angezeigt. Im Status-Register bedeutet 
»*« ein gesetztes Bit, ».« ein geloschtes. 



CPU-Register aus (sys 49185): Schaltet die Anzeige wieder 
ab. 

Basic-Ende setzen (sys 49188): setzt das Basic-Ende genau 
hinter das im Speicher befindliche Programm. Normalerweise 
erledigt das der Interpreter; wenn aber absolut geladen wurde, 
zum Beispiel in den $c-Block hinein, dann steht der Programm- 
Ende-Zeiger ebenfalls im $c-Block, und Eingabeversuche 
werden mit »out of memory«-Fehlermeldungen abgewehrt. 

Dump (sys 49191): Gibt alle definiertenVariablenunterAngabe 
des Namens und des aktueilen Inhalts aus. 
Mit der Shift-Taste kann die Ausgabe angehalten, mit der 
Commodore-Taste vorzeitig abgebrochen werden. 

ROM kopieren (sys 49194): Kopiert Interpreter- und Kernal- 
ROM in das darunter liegende RAM. Es gibt zwar viele verof- 
fentlichte Programme zu diesem Thema, doch macht die Ge- 
schwindigkeit dieser Stilbluten auf Dauer aggressiv. 

Zeichensatz RAM Die letzten vier Routinen befassen sich mit 
dem Zeichensatz: 

(sys 49197): Verlegt den Zeichensatz nach $7000. und den 
Bildschirm nach $6c00. Die Absicht ist klar: im RAM kann der 
Zeichensatz leicht verandert werden. 

Zeichensatz andern (sys 49200): Setzt voraus, daB vorher 
durch »sys49197« der Zeichensatz verlegt wurde, sonst funk- 
tioniert's nicht. Es wird eine Zeichen-Anderungsroutine akti- 
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viert, die einfach zu bedienen ist. Man fahrt einfach mit dem 
Cursor uber das zu andernde Zeichen, druckt RETURN, und 
schon guckt man wie durch eine Lupe in die Punkte-Matrix des 
Zeichens hinein. Auch hier kann man sich wieder frei mit dem 
Cursor bewegen, naturlich nur innerhatb des Zeichens. Will 
man einen Punkt loschen, druckt man die Space-Taste, zum 
Setzen gibt man ein Sternchen »*« ein. RETURN fuhrt wieder 
in das Menu zuruck. 

Zeichensatz speichern (sys 49203, "filename", gera- 

tenummer) 

Speichert den aktuellen Zeichensatz unter Angabe des Filena- 
mens (der wie bei »SAVE« dem SYS-Befehl in Anfuhrungsstri- 
chen folgen muB), eines Kommas und der Geratenummer ent- 
weder auf der Floppy Oder dem Kassetten recorder ab. Damit 
nicht jedesmal wieder bei Null begonnen werden muB, kann 
man einen Zeichensatz durch den Basic-Befehl: 

»load "filename", geratenummer,1« 
absolut, das heiBt von $7000 bis $7fff laden. 
Die verbogenen Basic-Zeiger werden danach mit »sys 491 88« 
wieder gerade gerichtet. 

Zeichensatz ROM (sys 49206): Schaltet den Zeichensatz wie- 
der ins ROM $d000 zuruck. Der Bildschirm wird wieder nach 
$400 verlegt. 



Grundsatzliches zur Eingabe 



Maschinenprogramme sind extrem empfindlich, was Fehler 
anbetrifft. Einfache Prufsummen decken sich ausgleichende 
Fehler nicht auf. Wird beispielsweise eine »1« und eine »2« ver- 
tauscht, so stimmtdie Prufsummezwar, das Programm istaber 
wahrscheinlich nicht lauffahig. Aus diesem Grund habe ich die 
Prufsummen gespalten, »pg« fur gerade Bytes und »pu« fur un- 
gerade. Zwar sind auch jetzt noch Fehlermaskierungen mog- 
lich, aber extrem unwahrscheinlich. 

Noch eine Unart erregt manches Argernis: 
Viele Autoren veroffentlichen Basic-Lader, und geben dann 
nach etwa 4000 harten (das heiBt unformatierten) Dezimal- 
Bytes eine (also eine einzige) Prufsumme an, so ziemlich weit 
in den Hunderttausendem, die auf Anhieb nur selten uberein- 
stimmt. Eswollen dann 4000 Bytes uberpruft werden! Ichhal- 
te es fur besser, nach einem kleineren Abschnitt, etwa einer 
»Page« (256 Bytes) eine Zwischenprufung zu fahren und bei 
Unstimmigkeiten sofort mit einem Hinweis zu unterbrechen. 

In meinem Programm werden den Datenbytes die Angabe 
der Seite, dann die gerade und letztlich die ungerade Prufsum- 
me vorangestellt. Wenn Sie das berucksichtigen, konnen Sie 
nach Herzenslust andern und erweitern, ein Maschinenspra- 
chemonitor und Assemblerkenntnisse vorausgesetzt. 



Probieren Sie mal einige Routinen 



aus 



Wenn Sie das Programm genauso wie abgebildet im Spei- 
cherstehen haben, so konnen Sie durch >>sys49161« die Elimi- 
nierung aller REMs erzielen. Die Routine startet mit der Mel- 
dung »20779 Bytes PRG-Laenge« und endet nach 22 Sekun- 
den mit »20019 Bytes PRG-Laenge«. 760 Bytes haben Sie 
gewonnen Oder verloren, wie man's nimmt. 



Doch Vorsicht! Wenn Zeilen mit einem REM beginnen, wird 
die ganze Zeile entfernt. Sprunge zu dieser Zeile werden nicht 
berucksichtigt. Wenn das Programm mit der Fehlermeldung 
»undefd statement* unterbricht, korrigieren Sie einfach den 
Sprungbefehl durch die Zeile, welcher der entfemten unmittel- 
bar folgt. 

Wenn Sie allerdings schon vorher uberblicken, welche Zei- 
len »fallig« sein werden, konnen Sie durch zum Beispiel »sys 
49167,"2000"« alle Zeilen mit dem Wortlaut "2000" ausfindig 
machen und korrigieren. 

»sys 49155« kommt nach etwa 13 Minuten mit »17828 By- 
tes PRG-Laenge« zuruck. Diese lange Zeit ruhrt davon her, daB 
nach jedem eliminiertem Space alle Programmzeilen wieder 
gekoppelt werden mussen, bei einem Gewinn von 2191 Bytes 
bedeutet das 2191 mal koppeln, und das Verschieben selbst 
braucht naturlich auch noch ein paar Millisekunden. Dann sind 
schnell, ehe man sich versieht, einige Minuten verflossen. 

»sys 491 7 9« als Package-Befehl bringt Ihnen nach 9 Minu- 
ten weitere 2095 Bytes Speicherplatzgewinn. Nach diesem 
3-Stufen-Plan haben Sie insgesamt 5046 Bytes, die fur die 
Funktion des Programms entbehrlich sind, entfernt. Durch den 
Platzgewinn werden Ihre Programme ubrigens schneller, da 
erstens die Strings mehr Platz haben und seltener aufgeraumt 
werden mussen und zweitens weniger Zeilenubergange 
stattfinden. 

Ich mochte nochmals betonen, daB sich derartige »Rumpf- 
pakete« ausschlieBlich fur den RUN-Modus eignen. Listen, 
Korrigieren und so weiter sollte immer an einem »gesunden« 

Programm stattfinden. 

(Johannes Mockenhaupt / ev) 



1: Mit folgendem Text meldet sich das Menu nach »sys 
491 52« 



sys49155 

sys49158 

sys49161 

sys49164 

sys49167 

sys49170 

sys49173 

sys49179 

sys49182 

sys49185 

sys49188 

sys49191 

sys49194 

sys49197 

sys49200 

sys49203 

sys49206 



Space-Killer 
Space-Expander 
REM-Killer 
Zeilen loschen 
Text suchen 
Colon-Maker 
Space-Maker 
Package 

CPU-Register ein 
CPU-Register aus 
BASIC-Ende setzen 
Variablen dumpen 
ROM=> RAM 
Zeichensatz nach $7000 
Zeichensatz andern 
Zeichensatz speichern 
Zeichensatz, alt 
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Listing »Super-Utilities« 




1290 


DATA 


49, 55, 48, 58, 32,195, 79, 76 , 


<087> 










1300 


DATA 


79, 78, 45,205, 65, 75, 69, 82 


<095> 




j- _- - - * 






1310 


DATA 


13, 83, 89, 83, 52, 57, 49, 55 


<047> 


100 
110 


REM 
REM 


* * 


<227> 
<081 "> 


1320 


DATA 


51, 58, 32,211, 80, 65, 67, 69 


<095> 


120 


REM " 


CSPACE 3* CSPACE 3 JOHANNES CSPACE 3 


» ^P"» Vi^r ^b - 


1330 

4 f m r*» 


DATA 


45,205, 65, 75, 69, 82, 13, 83 


<109> 


fiDCKENHAUPT CSPACE 3* 


<018> 


lo40 

* ^m*b *flHta JBlH 


: 




<123> 


130 


REM 


* * 


<1PI1 > 


1 350 


■ 




<133> 


140 


REM " 


CSPACE 3* CSPACE2 3JULN , CSPACE 3 AUGUST 


1360 

4 t~t#» 


DATA 


CI, 9851, 9900: REM *C100-C1FF 


<059> 


1 


ISPACE 3 1 984 CSPACE3 3* 


<173> 


1370 


: 




<153> 


150 


REM 


* * 


• * • — • 

< 1 2 1 > 


1380 


DATA 


89, 83, 52, 57, 49, 55, 57, 58 


<127> 


160 


REM 


* * 


C 1 T 1 S 


1390 


DATA 


32, 80, 65, 67, 75, 65, 71, 69 


<125> 


170 


REM " 


CSPACE 3* CSPACE2 3itl LFSROUT I NEN CSPACE 3F 3R 


1400 

_> MB _• t"^K 


DATA 


13, 83, 89, 83, 52, 57, 49, 56 


<138> 


■ 


CSPACE2 3* 


<072> 


1410 


DATA 


50, 58, 32,195,208,213, 45,210 


<064> 


180 


REM 


* # 


S U W A— f 

<151 > 


1420 


DATA 


69, 71, 73, 83, 84, 69, 82, 32 


<158> 


190 


REM " 


CSPACE 3* CSPACE4 3 COMMODORE CSPACE 3. 


£'64 


1430 


DATA 

■flPB *■ ■■■■■ SB 


69, 73, 78, 13, 83, 89, 83, 52 


<172> 


CSPACE4 3* 


<"060> 


1440 


DATA 


57, 49, 56, 53, 58, 32,195,208 


<019> 


200 


REM 


* * 


• W U M-M . - 

< 1 7 i > 


1450 


DATA 


213, 45,210, 69, 71, 73, 83, 84 


<016> 


210 


REM 


********-*********-*-*#♦*#* 


A A / A. * 

< 0B 1 > 


1460 


DATA 


69, 82, 32, 65, 85, 83, 13, 83 


<192> 


220 


• 






1470 


DATA 


89, 83, 52, 57, 49, 56, 56, 58 


<217> 


230 


PRINT 


" CCLEAR 3.31 E CSPACE 33ATEN CSPACE 3WERDEN 


1480 


DATA 


32,194,193,211,201,195, 45,197 


<244> 


CSPACE USE I TEN WE I SE 


<124> 


1490 


DATA 


78, 68, 69, 32, 83, 69, 84, 90 


<238> 


240 


PRINT 


" CDOWN 3GEPOKED CSPACE 3UND CSPACE 3 


-^ ■ ■ - 


1500 


DATA 


69, 78, 13, 83, 89, 83, 52, 57 


<244> 


KONTROLLIERT. CDOWN 3 


< 1 38> 


1510 


DATA 


49, 57, 49, 58, 32,214, 65, 82 


<038> 


250 


N=12* 


2T12: REM " CSPACE 3 $C000 


• -*■ ^^ %■■» m 

<046>* 


1520 

-A »*^» *^^P> PV 


DATA 


73, 65, 66, 76, 69, 78, 32, 68 


<011> 


260 


: FOR 


J=0 TO 15 


<T74AS 


1530 


DATA 


85, 77, 80, 69, 78, 13, 83, 89 


<023> 


270 


s 


READ A*,PG,PU:REM " CSPACE 3 £R3FSUMMEN 


1540 


DATA 


83, 52, 57, 49, 57, 52, 58, 32 


<017> 






<078> 




1550 


DATA 


210,207,205, 32, 61, 62, 32,210 


<186> 


280 


■ 


PRINT "SEITECSPACE3 ,, A* ,, : ,, ; 


< 072 > 


1560 


DATA 


193,205, 13, 83, 89, 83, 52, 57 


<135> 


290 


* 


FOR 1=0 TO 127 


^071^ 


1570 


DATA 


49, 57, 55, 58, 32,218, 69, 73 


<104> 


300 


■ 


READ A,B 


< 157> 


1580 


DATA 


67, 72, 69, 78, 83, 65, 84, 90 


<072> 


310 


: 


PG=PG~A : PU=PU-B 


< 096 > 


1590 


DATA 


32, 7B, 65, '67, 72, 32, 36, 55 


<064> 


320 


■ 


POKE N, A: POKE N+1,B 


< 053 > 


1600 


DATA 


48, 48, 48, 13, 83, 89, 83, 52 


<083> 


330 


■ 
■ 


* * 

N=N+2 


<175> 


1610 


DATA 


57, 50, 48, 48, 58, 32,218, 69 


<140> 


340 




NEXT I 


< 090 > 


1620 


DATA 


73, 67, 72, 69, 78, 83, 65, 84 


<113> 


350 


■ 
■ 


IF PG=0 AND PU=0 THEN 370 


< 0?B > 


1630 


DATA 


90, 32, 65, 69, 78, 68, 69, 82 


<121> 


360 


■ 


PR I NT ■ CRVSON 3flFTfi- FJEHLER CRVOFF 3 ! " 


1640 

* ■■■■> ■■■■ 


DATA 


78, 13, 83, 89, 83, 52, 57, 50 


<119> 


■ 


STOP 




< 140> 


1650 


DATA 


48, 51, 58, 32,218, 69, 73, 67 


<1B0> 


370 


: 1 


PRINT "IN CSPACE 3.QRDNUNG 


<156> 


1660 


DATA 


72, 69, 78, 83, 65, 84, 90, 32 


<144> 


380 


: NEXT J 


< 1 3 1 > 


1670 


DATA 


83, 80, 69, 73, 67, 72, 69, 82 


<158> 


390 


* 




< 19^^ 


1680 


DATA 


78, 13, 83, 89, 83, 52, 57, 50 


<159> 


400 


PRINT 


,r CCLEAR 3flLLE CSPACE 3£RUEFSUMMEN CSPACE 3 


1690 


DATA 


48, 54, 58, 32,218, 69, 73, 67 


<223> 


STIMMEN, CSPACE 3DURCH 


<019> 


1700 

4 ~~T 4 f^ 






<228> 


410 


PRINT 


" CDOWN 3JJAHL CSPACE 3DER CSPACE 3 




1710 


z 


• 


< 238 > 


£ERAETENUMMER CSPACE 3 ( 1 CSPACE 30DER CSPACE 38) 


1720 

m *r^m ^^W* BV^bj 


DATA 


02,17103,16952: REM *C200-C2FF 


<001> 






<035> 




1730 






< 002 > 


420 


PRINT 


" CDOWN 3KOENNEN CSPACE 3£I E CSPACE 3DEN 


1740 


DATA 


72, 69, 78, 83, 65, 84, 90, 44 


<227> 


CSPACE 3*C- < S_OCK CSPACE 3DIREKT CSPACE 3ALS 


<217> 


1750 


DATA 


32, 65, 76, 84, 13, 0,169, 13 


<212> 


430 


PRINT 


" CDOWN 3flASCH I NEN-£££ CSPACE 3 ABSOLUT 


1760 

M ^""^» ^^^» BBBBk 


DATA 


76,210,255, 32, 14,194,141, 


<103> 


CSPACE 3SPE I CHERN . 


<016> 


1770 


DATA 


4, 56,165, 45,229, 43,170,165 


<131> 


440 


PRINT 


" CDOWN 3.KEINE CSPACE 3£INGABE 


• ^fcrf -^ *— # »* 


1780 

A ^^HM ApBte ■■■■» 


DATA 


46,229, 44, 32,205,189,162, 


<135> 


■ 
i 


CSPACE 3£NDE. 


< r ? r ?0.^ 


1790 


DATA 


189, 52,194,208, 1, 96, 32,210 


<148> 


450 


I NPUT 


" CDOWN2 3£ERAETENUMMER: CSPACE 3" ; GN 


1800 


DATA 


255,232,208,244, 32,194, 89, 84 


<013> 






< 009 > 




1810 


DATA 


69, 83, 32,208,210,199, 45,204 


<222> 


460 


IF BN< 


:>1 AND GN<>8 THEN 480 


<165> 


1820 


DATA 


65, 69, 78, 71, 69, 13, 0, 32 


<243> 


470 


SYS 53138 "HILFSROUT. CSPACE 3EXE",GN 


<078> 






»• 


» 


480 


PRINT 


" CDOWN3flITCSPACE3'SYSCSPACE34915 


2 ' 


1830 


DATA 


19,194,166, 43,165, 44,134,251 


<036> 


CSPACE 3 BEKOMMEN CSPACE 3£I E CSPACE 3E I N CSPACE 3 


1840 


DATA 


133,252,160, 1,177,251,208, 41 


<028> 


J3JENUE. 




< 028 > 


1850 


DATA 


32, 51,165,166, 43,165, 44,134 


< 255 > 


1000 


DATA 


C0, 12017, 12700: REM SC000-C0FF 


<026> 


1860 


DATA 


45,133, 46,160, 0,177, 45,170 


<211> 


1010 


■ 




< 047 > 


1870 


DATA 


200,177, 45,208,242,165, 45, 24 


< 067 > 


1020 


DATA 


76, 57,192, 76, 71,194, 76, 14 


<112> 


1880 


DATA 


105, 2,133, 45,144, 2,230, 46 


<168> 


1030 


DATA 


195, 76,210,195, 76, 96,196, 76 


<232> 


1890 


DATA 


32, 96,166, 32, 19,194, 76,123 


< 00 1 > 


1040 


DATA 


232,196, 76, 97,197, 76,101,197 


<032> 


1900 


DATA 


227,160, 3,200,177,251,240, 90 


<087> 


1050 


DATA 


76,148,197, 76,192,199, 76, 66 


<005> 


1910 


DATA 


201, 34,208, 9,200,177,251,240 


< 096 > 


1060 


DATA 


201, 76, 48,202, 76, 88,194, 76 


<199> 


1920 


DATA 


81,201, 34,208,247,201, 32,208 


<106> 


1070 


DATA 


57,202, 76, 22,203, 76,109,203 


<235> 


1930 


DATA 


234, 166,251 , 165, 252, 134, 141 , 133 


<016> 


10S0 


DATA 


76, 17,204, 76, 90,207, 76, 26 


<162> 


1940 


DATA 


142, 24,152,101,251,133,251,144 


<217> 


1090 


DATA 


207, 32, 14,194,160, 0,169, 94 


<210> 


1950 


DATA 


2,230,252,160, 0,200,177,251 


< 076 > 


1100 


DATA 


162,192,133,251,134,252,177,251 


<211> 


1960 


DATA 


240, 4,201, 32,240,247, 24,152 


<089> 


1110 


DATA 


208, 10,169, 14, 32, 22,231,169 


<016> 


1970 


DATA 


101,251 ,133,253,165,252,105, 


<198> 


1120 


DATA 


8, 76, 22,231, 32,210,255,200 


< 224 > 


1980 


DATA 


133,254, 160, 0, 177,253, 145,251 


<222> 


1130 


DATA 


208,236,230,252,208,232, 83, 89 


<149> 


1990 


DATA 


200 , 208 , 249 , 230 , 252 , 230 , 254 , 1 65 


< 073 > 


1140 


DATA 


83, 52, 57, 49, 53, 53, 58, 32 


<124> 


2000 


DATA 


46,197,254,176,239,238, 0,216 


<214> 


1150 


DATA 


211, 80, 65, 67, 69, 45,203, 73 


<228> 


2010 


DATA 


32, 51,165,166,141,165,142, 76 


<210> 


1160 


DATA 


76, 76, 69, 82, 13, 83, 89, 83 


<161> 


2020 

• 


DATA 


78, 194 , 160, 0, 177,251 , 170,200 


<215> 


1170 


DATA 


52, 57, 49, 53, 56, 58, 32,211 


<198> 


2030 


DATA 


177,251, 76, 78,194,170,192, 5 


<198> 


1180 


DATA 


80, 65, 67, 69, 45,197, 88, 80 


<232> 


2040 


DATA 


176, 3, 76, 36,195,136,169, 32 


<155> 


1190 


DATA 


65, 78, 68, 69, 82, 13, 83, 89 


<194> 


2050 


DATA 


209,251,240, 4,200, 76,117,195 


<245> 


1200 


DATA 


83, 52, 57, 49, 54, 49, 58, 32 


<190> 


2060 


■ 




<078> 


1210 


DATA 


210,197,205, 45,203, 73, 76, 76 


<130> 


2070 


■ 




<088> 


1220 


DATA 


69, 82, 13, 83, 89, 83, 52, 57 


<214> 


2080 


DATA 


C3,20694,18471:REM *C300-C3FF 


<085> 


1230 


DATA 


49, 54, 52, 58, 32,218, 69, 73 


<012> 


2090 


■ 
* 




<108> 


1240 


DATA 


76, 69, 78, 32, 76, 79, 69, 83 


<250> 


2100 


DATA 


200,138, 76, 88,195,169,199, 72 


<073> 


1250 


DATA 


67, 72, 69, 78, 13, 83, 89, 83 


<252> 


2110 


DATA 


169, 60, 72, 76,115, 0, 32, 19 


<111> 


1260 


DATA 


52, 57, 49, 54, 55, 58, 32,212 


<033> 


2120 


DATA 


194,166, 43,165, 44,134,251,133 


<116> 


1270 


DATA 


69, 88, 84, 32, 83, 85, 67, 72 


<015> 


2130 


DATA 


252,160, 1,177,251,208, 3, 76 


<227> 


1280 

24 


DATA 


69, 78, 13, 83, 89, 83, 52, 57 


<024> 1 

• 


2140 


DATA 


88,194,160, 3,200,177,251,208 

( 


<086> 

4 






* 
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Listing »Super-Utilities« (Fortsetzung) 



# 









2150 


DATA 


2160 


DATA 


2170 


DATA 


2180 


DATA 


2190 


DATA 


£200 


DATA 


2210 


DATA 


2220 


DATA 


2230 


DATA 


2240 


DATA 


2250 


DATA 


2260 


DATA 


2270 


DATA 


2280 


DATA 


2290 


DATA 


2300 


DATA 


2310 


DATA 


2320 


DATA 


2330 


DATA 


2340 


DATA 


2350 


DATA 


2360 


DATA 


2370 


DATA 


2380 


DATA 


2390 


DATA 


2400 


DATA 


2410 


DATA 


2420 


■ 


2430 


■ 


2440 


DATA 


2450 


■ 


2460 


DATA 


2470 


DATA 


2480 


DATA 


2490 


DATA 


2500 


DATA 


2510 


DATA 


2520 


DATA 


2530 


DATA 


2540 


DATA 


2550 


DATA 


2560 


DATA 


2570 


DATA 


2580 


DATA 


2590 


DATA 


2600 


DATA 


2610 


DATA 


2620 


DATA 


2630 


DATA 


2640 


DATA 


2650 


DATA 


2660 


DATA 


2670 


DATA 


2680 


DATA 


2690 


DATA 


2700 


DATA 


2710 


DATA 


2720 


DATA 


2730 


DATA 


2740 


DATA 


2750 


DATA 


2760 


DATA 


2770 


DATA 


2780 


■ 


2790 


: 


2800 


DATA 


2810 


s 


2820 


DATA 


2830 


DATA 


2840 


DATA 


2850 


DATA 


2860 


DATA 


2870 


DATA 


2880 


DATA 


2890 


DATA 


2900 


DATA 


2910 


DATA 


2920 


DATA 


2930 


DATA 


2940 


DATA 


2950 


DATA 


2960 


DATA 


2970 


DATA 


2980 


DATA 


r^tf 


3i» 



3, 76,199,195,201, 34,208, 9 
200,177,251,240,244,201, 34,208 
247,170, 16,232,201,163,240,228 
201,166,240,224,201,164,240,165 

201 , 167,240, 161 ,201 , 169,240, 157 
201,175,240,153,201,176,240,149 

201,180,176, 12,201,170,144, B 
201,175,240, 4,201,176,208,188 
200,177,251,240, 90,201, 58,240 
179,201, 32,240,175,166,251,165 

252,134,141,133,142, 24,136,152 
101 ,251 , 133,251 ,144, 2,230,252 
24,166, 56,202,202,134,254,134 
37,165,251,133, 36,105, 1,133 
253, 144, 2,230,254, 160,255, 177 
36,145,253,136,208,249,177, 36 
145,253,198, 37,198,254,165, 37 
197,252,176,233,160, 1,169, 32 
145,251,238, 0,216, 32, 51,165 
166,141,165,142, 76, 21,195,160 
0,177,251,170,200,177,251, 76 

21,195, 32, 19,194, 32, 51,165 
166, 43,165, 44,134,251,133,252 
160, 1,177,251,208, 3, 76, 88 
194,160, 3,200,177,251,240, 54 
201, 34,208, 9,200,177,251,240 
45,201, 34,208,247,201,143,208 



DATA C4, 20508, 20440: REM $C400-C4FF 



34 , 1 9 



5,176, 44,160, 0,177 



251,133,253,200,177,251,133,254 
160, 0,177,253,145,251 ,200,208 
249,230,252,230,254,165, 46,197 
254,176,239, 76,213,195,160, 
177,251,170,200,177,251, 76,220 

195,132,141,160, 0,177,251,133 
253,200,177,251,133,254,164,141 
192, 5,144,204,136,177,251,201 

58,240,245,201, 32,240,241,200 
169, 0,145,251, 56,152,101,251 
133,251,144,180,230,252,176,176 
32,223,196,132,253,133,254, 32 
223,196,132,141,133,142, 32, 19 
194,166, 43,165, 44,134,251,133 
252, 160, 0, 177,251 , 170,200, 177 
251,240, 89,208, 6,160, 1,177 
251 ,208,234, 160, 3, 177,251 , 197 
254,144,242,208, 7, 136,177,251 
197,253,144,233,166,251,165,252 

134,139,133,140,160, 0,177,139 
170,200,177,139,208, 8,240, 25 
160, 1,177,139,208,234,160, 3 
177,139,197,142,144,242,208, 9 
136, 177, 139, 197, 141 , 144,233,240 
231,160, 0,177,139,145,251,200 
208,249,230,252,230,140,165, 46 
197,140,176,239, 76, 88,194, 32 
253,174, 32,138,173, 76,247,183 
,253,174,162, 0, 32,115, 



-Jr 



240, 10, 72,104,157, 16, 2,232 
224, 48,144,241,169, 0,157, 16 



DATA C5, 17505, 17163: REM *C500-C5FF 



2,166, 43,1 
252,160, 1, 
72, 96,160, 
177,251,208, 
251,240,239, 
24,152,132,1 
165,252,105, 
200,185, 16, 
240,246,177, 
2,240,237,1 
2,177,251,1 
205,189,169, 
177,169, 32, 
253,166, 43, 
252,160, 1, 
88,194,160, 
208, 4, 73, 



65, 44,134,251,133 
177,251,208, 13,104 

0,177,251,170,200 
233,160, 3,200,177 
205, 16, 2,208,246 
41,101,251, 133,253 
0,133,254,160, 
2,240, 17,201, 63 
253, 72,104,217, 16 
64,141,208,207,160 
70,200,177,251, 32 

13, 32,210,255,208 
208, 2,169, 58,133 
165, 44,134,251,133 
177,251,208, 3, 76 

4,177,251,197,253 

26,145,251,160, 



<212> 
<188> 
<203> 
<001> 
<018> 

< 027 > 
<138> 
<209> 
<211> 
<028> 

< 022 > 
<229> 
<254> 
<163> 
<024> 
<051> 
<073> 
<013> 
<217> 
<080> 
<035> 
<206> 
<106> 
<181> 
<070> 

< 076 > 
<137> 
<183> 
<193> 
<208> 
<213> 
<050> 
<042> 
<206> 
<030> 
<196> 
<039> 
<248> 
<104> 
<016> 

<011> 

<240> 

<150> 

<056> 

<063> 

<086> 

<083> 

<211> 

<116> 

<127> 

<241> 

<137> 

<100> 

<058> 

<187> 

<033> 

<1B0> 

<248> 

<189> 

<237> 

<015> 

<075> 

<155> 

<032> 

<042> 

<071> 

<062> 

<199> 

<251> 

<218> 

<072> 

<032> 

<125> 

<246> 

<207> 

<128> 

<127> 

<089> 

<159> 

<082> 

<177> 

<036> 

<167> 

<255> 



2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3 1 90 
3200 
3210 
3220 
3230 
3240 
3250 
3260 



3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3500 

3510 

3520 

3530 

3540 

3550 

3560 

3570 

3580 

3590 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3670 

3680 

3690 

3700 

3710 

3720 

3730 

3740 

3750 

3760 

3770 

3780 

3790 

3B00 

3810 

3820 

3830 

3840 



DATA 177,251,170,200,177,251, 76,109 
DATA 197, 76, 88,194, 32, 19,194, 32 
DATA 5,195,134, 65,133, 66, 32,158 
DATA 199, 32,147,199,134, 59,133, 60 
DATA 228, 65,229, 66,176, 3, 76, 72 
DATA 178, 32,147,199,134, 63,133, 64 
DATA 160, 1,177, 67,240,211,169,127 
DATA 133, 21,133, 20, 32, 5,195, 32 
DATA 142,166,176, 47,160, 0,177,139 
DATA 170,200,177,251,240,187, 72,200 
DATA 165, 59,145, 34,200,165, 60,177 
DATA 36,134, 67,104,133, 68,165, 59 
DATA 24,101, 63,133, 59,165, 60,101 
DATA 64,133, 60,144,215,230,122,208 
DATA 2,230,123,160, 0,177,122,208 



DATA C6, 13653, 16163: REM SC600-C6FF 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



19,1 
122, 
230, 
32,1 
34,2 
138, 
167, 
115, 
216, 



60, 
24 

123 

15, 

08, 

240 

240 



32 



2,177,122,240,197,165 
, 105, 5, 133, 122, 144,235 
,176,231,201, 34,208, 11 

0,201, 0,240,226,201 
245,201,137,240, 23,201 
, 19,201,141,240, 15,201 
, 11,201,203,208,190, 32 
,201,164,208,191,238, 
,115, 0,176,183,132, 20 



33 



132, 21,144, 49,170,165, 21,1 
34,201, 25,176,168,165, 20, 10 
69, 34, 10,165, 34,101, 20,133 
20,165, 34,101, 21,133, 21, 6 
20,133, 21,138,101, 20,133, 20 
144, 2,230, 21,200,177,122,201 
32,240,249,201, 58,165, 20,197 
65,165, 21,229, 66,144, 72,132 
206, 32, 60,199, 56,162,144, 32 
73,188, 32,221,189,160,255,200 
185, 0, 1,208,250,165,122,166 
123,133, 95,134, 96, 56,152,229 
206, 48, 38,240,106,133,206,165 
45,133, 90, 24,101,206,133, 88 
165, 46,133, 91,105, 0,133, 89 
197, 56,144, 6,165, 88,197, 55 
176,109, 32,191,163,240, 72,144 
90, 73,255,168,200,162, 0,165 
95,197, 45,165, 96,229, 46,176 
54,147, 17, 17, 17, 17, 33, 33 
203, 80, 73, 66, 79, 79, 70, 84 
33,206, 80, 68, 76, 70, 79, 73 
66, 86, 81, 85, 13, 17, 68, 33 



DATA C7 , 1 5307 , 1 5592 : REM SC700-C7FF 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



50, 58, 57, 53, 33,204, 80, 70 
77, 79, 17, 29, 29, 13, 0,230 
95,208,196,230, 96,208,192,160 
0,185, 0, 1,240, 5,145,122 
200,208,246, 32,158,199, 32,115 
0,144,251,160, 0,201, 44,208 
2,169,137,170, 76,255,197,162 
16, 76, 58,164, 2,160, 0,185 
225,198,240, 24, 72, 41,127,201 
32,144, 6,104,233, 1, 76, 82 
1 99 , 1 04 , 32 , 2 1 , 255 , 200 , 208 , 23 1 
133, 34,134, 35,160, 2,132,211 
32,123,164,177, 34,197, 20,200 
177, 34,229, 21,176, 81,160, 
34,170,200,177, 34,134, 34 
35,177, 34,240, 65,165, 99 
63,133, 99,165, 98,101, 64 
98,176, 4,201,252,144,204 



177, 
133, 
101, 
133, 



76, 72,178, 32,253,174, 32,107 
169,166, 20,165, 21, 96, 32, 51 
165, 24,165, 34,105, 2,133, 45 

165, 35,105, 0,133, 46,165, 65 

166, 66,133, 20,134, 21, 32, 19 
166,165, 95,133, 67,134, 68, 96 
32, 19,194,166, 43,165, 44,134 
251,133,252,238, 0,216,138, 24 
105, 3,133,247,165,252,105, 
133,248,160, 1,177,251,208, 3 
76, 88,194,160, 0,132, 2,230 
247,208, 2,230,248,177,247,240 
55,201, 34,208, 29,230, 2,230 



<015> 
<104> 
<097> 
<216> 
<079> 
<232> 
< 228 > 
<071> 
<000> 
<093> 
<019> 
<241> 
<227> 
<079> 
<239> 
<138> 
<148> 
<179> 
<168> 
<105> 
<094> 
<152> 
<255> 
<175> 
<1B1> 
<194> 
<108> 
<118> 

<182> 

<144> 

<098> 

<049> 

<150> 

<215> 

<255> 

<219> 

<226> 

<048> 

<236> 

<058> 

<105> 

<012> 

<235> 

<018> 

<148> 

<057> 

<102> 

<185> 

<216> 

<222> 

<182> 

<243> 

<253> 

<034> 

<017> 

<009> 

<231> 

<037> 

<223> 

<042> 

<136> 

<029> 

<082> 

<027> 

<092> 

<139> 

<248> 

<066> 

<239> 

<090> 

<067> 

<070> 

<120> 

<091> 

<047> 

<046> 

<061> 

<065> 

<159> 

<150> 

<195> 

<149> 

<168> 

<080> 

<04t> 

<139> 
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C64 



Listing »Super-Utilities« (Fortsetzung) 



3850 
3360 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 

3990 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 



DATA 247,208, 2,230,248,177,247,240 



DATA C8, 17613,21819: REM SC800-C8FF 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



39,201, 34,240,224,208,240,160 
0,177,251,170,200,177,251, 76 
199, 199,201,137,240,241,201 ,138 
240,237,201,142,240,233,201,143 
240,229,201,167,208,191,240,223 
160, 0,177,251,133,253,200,177 
25 1 , 1 33 , 254 , 200 , 1 77 , 253 ,133, 249 
200,177,253,133,250, 56,160, 
177,253,229,251,200,177,253,229 

252,208,188,166, 43,165, 44,134 
247,133,248, 160, 1,177,247,208 

3, 76,183,200, 24,165,247,105 

3 , 1 33 , 1 22 , 1 65 , 248 , 1 05 , 0,133 
123,160, 0,230,122,208, 2,230 
123,177,122,240, 55,201, 34,208 
14,230,122,208, 2,230, 123,177 
122,240, 41,201, 34,208,242,201 
137,240, 12,201,138,240, 8,201 
141,240, 4,201,167,208,212, 32 
115, 0, 32,107,169,165, 21,197 
250,208,198,165, 20,197,249,208 
192, 76, 7,200,160, 0,177,247 
170,200,177,247, 76, 79,200,238 

0, 4,160, 0, 24,165,253,105 
255,133,139,165,254,105,255,133 
140,165, 2,240, 4,169, 34, 16 

2,169, 58,145,139,200,201, 34 
240,247, 24,165,253,105, 4,133 
36,165,254,105, 0,133, 37,230 
139,208, 2,230,140,164, 2,240 

4,198, 2,240,242,177, 36,145 
139,200,208,249,230,140,230, 37 



DATA C9, 13954, 13099: REM $C900-C9FF 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 



165, 46, 
105, 4, 
133,140, 
208 , 248 , 
160, 0, 
251,200, 
200,177, 
32, 51,1 
199,199, 
141, 13, 
160,201, 

3, 88, 
240, 66, 
99, 153, 

0,216,1 
200,208, 
66, 82, 



197, 37,176 
133,139,165 
177,139,240 
230,140,208 
24,165,139 
165,140,105 
139,208, 3 
65,166,251, 
173, 20, 3 

202.140, 14 

120.141, 20 
96,160, 0, 

41, 63,153 
80, 4,173, 
53, 40,216, 



, 239 , 1 65 , 25 1 

,252,105, 

, 10,230,139 

,244,240,242 

,105, 1,145 

, 0,145,251 

, 76, 88,194 

165,252, 76 

5,172, 21, 3 

K202, 169, 91 

3, 3,140, 21 

,185,123,201 



75, 



72 



?*? "?*"? "n 



86, 32, 
65, 67, 
32, 83, 
22,202,1 
173 | 23 j 

3, 32, 
1 5 , 202 , 1 
189, 6, 

1 32 

202,169, 
1 33 Y 165 , 
208, 2, 
164,208, 
202,189, 



66, 
32, 
80, 
73, 



82 
32, 
67, 



73, 
82. 



80, 
68, 
88, 

0,173, 

13,202, 

3, 32, 15 

22,202,173, 

73, 24, 3, 

1, 32, 15 

22,202,169, 

8,133,164 

6,165,144 

169, 46, 

239,189, 



, 0, 4,169 

134, 2,153 

153, 80,216 

\ 9 81, 32, 32 

78, 77, " 
32, 32. 1 



73 



:, 83 
90, 




r^ 



'0, 67, M 
32, 89, 82 
14,202, 32 
32, 22,202 
1,202,173, 22 
25, 3, 32 
32 , 22 , 202 
,202,189, 5 

32, 32, 43 

,189, 4, 1 

, 4,169, 42 

:, 43,202,198 

, 1, 32, 15 



1, 32 



, 15 
, 15,202 



12,189 



DATA CA, 16040, 17390: REM $CA00-CAFF 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



1, 1, 32, 15,202,138, 24,105 

6, 32, 15,202, 76, 49,234, 72 

169, 32, 32, 43,202,104, 72, 74 

74, 74, 74, 32, 31,202,104, 41 

15,201, 10,144, 4,233, 9,208 



<062> 
<093> 
<103> 
<144> 
<123> 

< 093 > 
<065> 
<230> 
<213> 
<240> 
<148> 

< 009 > 
<115> 
<040> 

< 20e > 
<214> 
<115> 
<112> 

< 10B> 
<236> 
<189> 

41 > 



<2 



9, 48,153, 

, 13,202,172 
201,166, 45,165, 46,134, 



173 



0, 4,200, 96 
, 14,202, 76, 82 



1,1 



<208> 
<219> 
<196> 
<118> 
<170> 

< 08 1 > 
<070> 

< 1 95 > 
<152> 
<009> 
<065> 

< 023 > 
<027> 

< 007 > 
<202> 

< 1 98 > 

< 208 > 

< 00 1 > 
<228> 

< 236 > 
<110> 
<016> 
<077> 

< 090 > 
<240> 
<189> 
<239> 
<097> 
<235> 
<176> 
<122> 
<081> 
<147> 
<241> 
<207> 
<095> 
<079> 
<114> 
<129> 
<149> 
<038> 
<217> 
<124> 
<231> 
<165> 
<207> 
<031> 

< 092 > 
<102> 
<060> 
<060> 
<047> 

< 057 > 
<117> 
<078> 
<046> 

< 080 > 
<151> 
<139> 
<143> 
<220> 
<014> 
<129> 



4700 

4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4860 
4870 
4380 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 
4980 
4990 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
5150 
5160 
5170 
5180 
5190 
5200 
5210 
5220 
5230 
5240 
5250 
5260 
70 
80 
5290 
5300 
5310 
5320 
5330 
5340 
5350 
5360 
537.0 
5380 
5390 
5400 
5410 
5420 

5430 
5440 
5450 
5460 
5470 
5480 
5490 
5500 
5510 
5520 
5530 
5540 
5550 



DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



252 

229 

177 

177 

236 

162 

105 

133 

32, 

173 

247 

105 

156 

160 

210 

136 

133 

177 

165 

202 

165 

175 

210 

208 



56,165,251,229, 47,165,252 

48,176, 85,160, 0,132,211 

251.133.253, 41,127,170,200 

251.133.254, 41,127,168, 32 
202,165,253, 5,254, 48, 58 

0, 32,246,202, 24,165",251 
2,133, 34,165,252,105, 



-j>*j j 32 * 1 D<b j 1 87 , 3 



r>*7 



21 , 189 



30,171,169, 13, 32,210,255 

141, 2,240, 8,201, 1,240 

201, 2,240, 12, 24,165,251 

7,170,165,252,105, 0, 144 

96,165,253, 48, 42,162, 36 

61, 32,236,202,169, 34, 32 

255, 160, 4, 177,251 , 133,254 

177,251 , 133,253, 136, 177,251 

141,160, 0,196,141,176,187 

253, 32,210,255,200,208,244 

254, 16,180,162, 37, 32,246 
24,165,251,105, 2,133,100 

252,105, 0,133,101, 32, 97 
76, 125,202, 13B, 240, 3, 32 



2 



55,1 



*J^L 



76,210,255,160, 61 



242,194,193,211,201,195, 32 



DATA CB, 16618, 16505: REM *CB00-CBFF 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



43, 32,203,197,210,206,193,204 
32, 74, 69, 84, 90, 84, 32, 73 

77, 32,210,193,205, 0,160, 
169, 160, 132,251 , 133,252, 169,224 
132,253,133,254,162, 32,177,251 
145,251,177,253,145,253,200,208 
245 , 230 , 252 , 230 , 254 , 202 , 208 , 238 
185,250,202,240, 6, 32,210,255 
200,208,245, 96,208,210,199, 45 
203, 79, 76, 76, 73, 83, 73, 79 

78, 44, 32,193, 69, 78, 68, 6<T 
82, 85, 78, 71, 32, 78, 73, SI 



DATA CC, 12980, 12282: REM $CC00-CCFF 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



72, 69, 78, 71, 69, 78, 69, 
65, 84, 79, 82, 13, 0, 76, 
194,169,147, 32,210,255,160, 
185, 38,204,208, 3, 76,166, 
32,210,255,200,208,242, 19, 
17, 17, 77, 73, 84, 32, 18,1 
213,210,211,207,210,146, 32, 
32,218, 69, 73, 67, 72, 69, 
32, 69, 73, 78, 83, 84, 69, 



82 
88 


204 
17 
95 

TO 

78 

76 



76, 69, 78, 44, 13, 77, 73, 84 
32, 18,210,197,212,213,210,206 
146, 32, 32, 32, 87, 65, 69, 72 
76, 69, 78, 46, 13, 29, 29, 29 
29, 18, 70, 55,146, 58, 32, 32 
32, 32, 32, 32,218, 69, 73, 67 
72, 69, 78, 83, 65, 84, 90, 13 
29, 29, 29, 29, 18,210,213,206 
47,211,212,207,208,146, 58,193 
66, 66, 82, 85, 67, 72, 46, 17 
13, 29, 29, 29, 29, 29, 29, 29 
29, 29, 29, 29, 29, 0,168,132 
141,152,201, 32,176, 4,169, 32 



<154> 

<052> 
<202> 
<175> 
<091> 
<079> 
<034> 
<168> 
<110> 
<010> 
<126> 
<140> 
<178> 
<165> 

< 020 > 
<142> 
<045> 
<099> 
<021> 
<002> 

< 2-31 '■-■ 
<248> 
<099> 
<164> 
<153> 
<163> 
<234> 
<183> 
<15B> 
<151> 

< 227 > 
<041> 
<253> 

< 059 > 
<062> 



< 



018> 



<158> 
<172> 



45 > 



<250> 
<091> 

<050> 
< 1 23 > 
<088> 



<093> 
<100> 
<146> 
<122> 
<161> 
<169> 
<148> 

< 030 > 
<190> 
<179> 

< 1 83 > 

< 236 > 
<119> 
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5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6199 

6200 

6210 

6220 

6230 

6240 

6250 

6260 

6270 

6280 

6290 

6300 

6310 

6320 

6330 

6340 

6350 

6360 

6370 

6380 

6390 

6400 

6410 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



208, 
245, 

41, 
255, 

185, 
200, 

17, 
29, 
133, 
207, 



7,170 
32,210 
15,208, 
169, 11 
219,204 
208,245 

, 17, 

29, 29, 

169 
29 



17 
29, 
251, 
201, 



, 16, 


4, 


,201, 


,255, 


230. 


,141, 


9,169, 


13, 


,133, 


211. 


,200, 


,240, 


27, 


, 32, 


, 19, 


p 17. 


, 17, 


17, 


29, 


29, 


29, 


29, 


29, 


, 0, 


133. 


,252, 


,208, 


, 37 


,230, 



160, 
165, 
32,2 
208, 
210, 
17, 
29, 
29, 






144 
141 
10 
217 



17 
29 

65 

230 



DATA CD, 16915, 17377: REM $CD00-CDFF 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



211,166 
211,198 
229,230 
169, 
208,208 
240,166 
240,196 
201, 17 
176,180 
173,201 
165, 32 
201, 3 
13,240, 
24,208, 
246,204 
24, 105, 
128,133 
144,217 
1 64 , 253 
173, 24 
133,252 
33 , 252 , 
133,141 
3, 76, 
208,242 
17, 
29, 

29, 29, 
192,192 
157,221 
17,157, 
221, 17 



,252,224, 16,144,239,198 
,252, 164,251 , 192, 15, 176 
,251,169, 13, 32,210,255 
,133,252, 9, 11,133,211 
,201, 19,208, 4,160, 



17, 
29, 



,198,252,198,211,208,190 
,208, 13,164,251,192, 15 
, 32,210,255,230,251,208 
,145,208, 11, 164,251,240 
,210,255,198,251,208,158 
,208, 3, 76, 88,194,201 
15,201,136,208, 8,173 
73, 2,141, 24,208, 76 
,165,252,164,251,240,235 

16,136,208,250, 72, 41 
,253,104, 41,127,201, 32 
,201, 64,144, 2, 41, 63 
,240, 2, 9, 64,133,251 
,208, 41, 7, 74, 9, 14 
, 6,251, 38,252, 6,251 

6,251, 38,252,169, 7 
,160, 0,185,194,205,208 

56,206, 32,210,255,200 

f 19, 17, 17, 17, 17, 17 

17, 17, 17, 17, 17, 29 

29, 29, 29, 29, 29, 29 

29, 29, 29,176,192,192 

,192,192,192,192,174, 17 

, 17,157,221, 17,157,221 

221, 17,157,221, 17,157 

,157,221, 17,157,221, 17 



DATA CE, 19121, 182 16: REM $CE00-CEFF 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



157, 
157, 
192, 
157, 
157, 
145, 
221 , 
165, 
142, 



221, 
157, 
192, 
157, 

*■* x 1 
157, 

145, 

141, 

169, 



157, 
157, 
192, 
157, 
145, 
221 , 
157, 
73, 
15, 



157, 
157, 
192, 
157, 
157, 
145, 
221, 

7, 

133, 



157, 
173, 
192, 
157, 
221, 
157, 
145, 
168, 
211, 



157, 
192, 
189, 
157* 
145, 

157, 
177, 
160, 



157, 
192, 
157, 
157, 
157, 
145, 
221, 
251, 
8, 



157 
192 
157 
145 
221 
157 

133 
169 



T"7 



__, 6,142,144, 2, 9, 10, 32 
210,255,136,208,242,169, 13, 32 
210,255,198, 141 , 16,218,185,105 
206,240, 36, 32,210,255,200,208 
245, 19, 17, 17, 17, 17, 17, 17 
17, 17, 17, 17, 17, 17, 17, 29 
29, 29, 29, 29, 29, 29, 29, 29 
29, 29, 29, 29, 29, 29, 0,133 
248,133,247, 32, 65,207,201, 29 
208, 13,166,247,224, 7,176,243 
230,247, 32,210,255,208,236,201 
157,208, 11,166,247,240,228,198 

247, 32,-210,255,208,221,201, 17 
208, 13,164,248,192, 7,176,211 
32,210,255,230,248,208,204,201 
145,208, 11,164,248,240,196,198 

248, 32,210,255,208,189,201, 32 
240, 11,201, 42,240, 43,201, 13 
208,177, 76, 22,204,166,247,224 

B, 176,243, 32,210,255,169,128 
166,247,240, 2, 74,202,208,252 
73,255,133,253,164,248,177,251 
37,253,145,251,230,247, 76,139 



<075> 
<026> 
<050> 

< 049 > 
<015> 
<135> 
<012> 
<231> 
<212> 
<061> 
<108> 
<11B> 

< 203 > 
<13B> 

< 1 79 > 
<189> 
<135> 
<245> 
<255> 



01,157,208, 10,166,252 <215> 



<040> 

< 1 33 > 
<243> 
<248> 
<023> 
<032> 
<131> 

< 050 > 
<103> 

< 1 63 > 
<009> 
<132> 
<148> 
<016> 
<170> 
<145> 
<047> 
<193> 
<166> 
<079> 
<110> 
<013> 
<214> 
<154> 
<119> 
<121> 
<213> 

<040> 
<243> 
<090> 
<103> 
<11B> 
<125> 
<10B> 
<123> 
<019> 
<000> 
<001> 



< 209 > 
<067> 
<134> 
<074> 
<114> 
<074?-> 
<105> 
<100> 

< 094 > 
<109> 
<199> 



<234 






<1685 
<147> 



<23 



\ 



DATA CF, 11190, 11261:REM SCF00-CFA6 



<018> 
<219> 
<100? 
<2515 
<2092 
< 209 5 
<07B? 

<035) 
<062> 
<072 5 
<U9> 
<093> 



6420 DATA 
6430 DATA 



6440 
6450 
6460 
6470 
6480 



DATA 
DATA 
DATA 
DATA 
DATA 



206,166,247,224, 8,176,214, 32 
210,255, 169,128,166,247,240, 2 
74 , 202 , 208 , 252 , 1 64 , 248 , 1 7 , 25 1 
208,224, 169, 4, 160, 151 , 141 , 136 
2,140, 0,221, 32, 91,255,169 
5, 32,210,255,169, 8, 32,210 
255,169, 14, 32,210,255,169, 11 



6490 DATA 141, 



08,141, 33,208, 76, 88 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
6560 DATA 
6570 DATA 
6580 DATA 



6500 
6510 
6520 
6530 
6540 
6550 



194, 70,204, 70,207, 32,228,255 
240,247, 72,230,204,164,211,177 
209, 41,127,145,209,104, 96, 32 
253,174, 32,212,225,162, 1,160 
128,134,185,202,134,141,169,112 

133,142,169,141, 76,216,255, 32 
32,202, 79, 72, 65, 78, 78, 69 
83, 32,205, 79, 67, 75, 



72, 65, 85, 80, 84, 32, 
6590 DATA 79, 69, 76, 78, 67, 32, 



6600 
6610 
6620 
6630 
6640 



69, 78 
32 , 203 
49, 57 
1,134 



DATA 56, 52, 32,212,225,162, 

DATA 1 85 , 202 , 1 34 , 1 42 , 1 60 , 208 , 1 69 , 1 9 

DATA 133,143,169,142, 76,216,255 



<032> 
<090> 
<099> 
<102> 
<163> 
<175> 

< 087 > 
<050> 
<108> 
<211> 
<128> 
<124> 

< 035 > 

< 209 > 
<250> 
<008> 

< 248 > 

< 244 > 
<095> 
<112> 

< 1 36 > 
<057> 



REM " CSPACE 1£I E CSPACE DFOLGENDEN CSPACE 1 



JLOMMATA CSP ACE DS I ND 



<086> 



6650 REM " CSPACE D' MULLEN ', CSPACE DWELCHE CSPACE 1 



DIECSPACEUPjDKE- 



<242> 



6660 REM " CSPACE ]£CHLE I FE CSPACE 3 AUF CSPACE D256 



CSPACE ] BYTES CSPACE 3ER- 
6670 REM " CSPACE DGAENZEN. 
6680 
6690 
6700 
6710 



DATA ,,,,,, niftMiiimiif unnin 

DATA ,,,,,,,,,,,,iififf,9,,iiffV9^«v 

DATA «««ii«i,,,,,ifff19,,,f99 



<214> 
<015> 
<108> 
<019> 
<029> 
<243> 



Listing »Super-Uti!ities« (Schluft) 





27 



M&r 




H.L Schneider/W. Eberl 

Das Commodore 64-Buch, Bd. 1 

1984, 270 Seiten 

Der Commodore 64 und seine Handha- 
bung • Einfuhrung in die Grafik ■ Bal- 
kendiagramme • Einfuhrung in die Spri- 
tetechnik • Basic-Erweiterungen in As- 
sembler • Ein Leitfaden fdr Erstanwen- 
der. 

Best.-Nr. MT 591 (Buch) n * fl - 
(Sfr.44,20/6S 374,40) UIVI 4(5, — 

Best.-Nr. MT 592 (Beispiele auf Diskette) 
(Sf r. 58,-/6S 522,-) DM 58,- 




H. L Schneider/W. Eberl 

Das Commodore 64-Buch, Bd. 5 

Juli 1984, 322 Seiten 

Ein Leitfaden durch Simon's Basic • 
ausfQhrliche Besprechung aller Befehle 
• viele erklarende Beispiele • mit kom- 
mentierter Assembler-Listing • das rich- 
tige Nachschlagewerk ftir den geiibten 
Commodore 64-Benutzer. 
Best.-Nr. MT 599 (Buch) n n/i on 
(Sf r. 35.-/6S 296,40) U IVI GO . — 
Best.-Nr. MT 600 (Beispiele auf Diskette) 
(Sfr. 58.-/6S 522,-) DM 58,- 




H.L Schneider/W. Eberl 



Das Commodore 64-Buch, Bd. 2 

1984, 181 Seiten 

Spiele nicht nur zum Abtippen ■ Pro- 
grammlisting • Programmbeschreibung 
■ Variablenubersicht • Programme nach 
Anleitung frei erganzbar • das ideale 
Buch, um Programmieren spielend zu 
lemen. 

Best.-Nr. MT 593 (Buch) n * n no 
(Sfr. 35,-/6S 296,40) U IVI 00 , — 
Best.-Nr. MT 594 (Beispiele auf Diskette) 
(Sfr. 58,-/6S 522,-) DM 58,- 




H. L Schneider; W. Eberl 

Das Commodore 64-Buch, Bd. 6 

1984, 190 Seiten 

Programmieren auf dem Commodore 64 
spielend gelernt • Programmlisting mit 
anschlieBender Programmbeschrei- 
bung • Variablenubersicht • Tips zum 
Andern und Erganzen des Programms. 
Best.-Nr. MT 619 (Buch) R l\/l no 
(Sfr. 35,-/6S 296,40) U IVI 00 , — 
Best.-Nr. MT 620 (Beispiele auf Diskette) 
(Sfr. 58.-/6S 522,-) DM 58,- 




In guten Buchhandlungen, Computershops und Fachabteilungen 

der Kauf hauser. 



Marto&Technik 



Verlag Aktiengesellschaft, 

I Hans-Pinsel-Str. 2, 8013 Haar bei Miinchen, « 089/4613-220 

[ Schweiz: M&TVertriebs AG, Alpenstr. 14, CH-6300 Zug, s 042/223155 

\Osterreich: Rudolf-Lechner&Sohn, HeizwerkstraBe 10, A-1232 Wi en, w 02 22/67 7526 J 




H. L. Schneider/W. Eberl 

Das Commodore 64-Buch, Bd. 3 

1984, 206 Seiten 

Alles uber Sprites • Wissenswertes iiber 
Multi-Color-Grafik • Assembler/Disas- 
sembler • jede Menge Basic- 
Er,weiterungen • Umgang mit dem 
Soundgenerator • ein Leitfaden fur Fort- 
geschrittene. 

Best.-Nr. MT 595 (Buch) nn * OQ 
(Sfr. 35,— /6S 296,40) U IYI OO , — 
Best.-Nr. MT 596 (Beispiele auf Diskette) 
(Sfr. 58,-/6S 522,-) DM 58,- 




H. L. Schneider 

Das Commodore 64-Buch, Bd. 7 

August 1984, 110 Seiten 

Der Commodore 64 als Klaviatur • No- 
ten schreiben mit hochauflosender Gra- 
fik ■ relative Dateien am Beispiel einer 
kleinen AdreBverwaltung • Benutzung 
des Joysticks und der Paddles ■ Grafik- 
speicher unter Kernal • Interrupt- 
Manager • eigene Zeichen definieren • 
Bildschirmrollen • fur Profis. 
Best.-Nr. MT 731 nn/i on 

(Sfr. 35.-/6S 296,40) U IYI OO, — 




F. Ende 

Das groBe Spielebuch — 
Commodore 64 

1984,141 Seiten 

46 Spielprogramme - Wissenswertes 
uber Programmiertechnik • praxisnahe 
Hinweise zur Grafikherstellung • alles 
uber Joystick- und Paddleansteuerung • 
das Spielebuch mit Lemeffekt. 
Best.-Nr. MT 603 (Buch) niLA ori on 
(Sfr. 27, 50/6S 232,40) UIVI £9,oU 

Best.-Nr. MT 604 (Beispiele auf Diskette) 
(Sfr. 38.-/6S 342,-) DM 38,- 




H. L SchneiderAA/. Eberl 

Das Commodore 64-Buch, Bd. 4 

1984, 261 Seiten 

Einfuhrung in Maschinenprogrammie- 
rung • Verknupfung von Maschinenpro- 
grammen mit Basic-Programmen • alles 
uber Assembler/Disassembler • der 
Leitfaden fur Systemprogrammierer 
Best.-Nr. MT 597 (Buch) nil /I OO 
(Sfr. 35,-/6S 296,40) UIYI OO, — 
Best.-Nr. MT 598 (Beispiele auf Diskette) 
(Sfr. 58,— /6S 522,—) DM 58,— 




Computerspiele & Wissenswertes — 
Commodore 64 

1984, 156 Seiten 

Eine Sammlung von interessanten und 
nutzlichen Maschinenprogrammen 
schnelle binare Artithmetik • Basic-Er- 
weiterungen • mit unterstutzendem As- 
sembler-Listing • fQr den fortgeschritte- 
nen Programmierer. 

Best.-Nr. MT 601 (Buch) nM on on 
(Sfr. 27,50/6S 232,40) UIYI £3,oU 
Best.-Nr. MT 602 (Beispiele auf Diskette) 
(Sfr. 38.-/6S 342,-) DM 38,- 







T. Rugg/Ph. Feldman 

Mehr ais 32 Basic-Programme fur 
den Commodore 64 

1984, 279 Seiten 

Programme speziell fQr den Commodo- 
re 64 • umfassende praktische Anwen- 
dungen • jede Menge Lehr- und Lernhil- 
fen • super Spiele • fQr Basic-Neulinge 
und Experten. 

Best.-Nr. MT 613 (Buch) niVfl iin 

(Sfr. 45,1 0/6S 382,20) UIYI 45J, 

Best.-Nr. MT 614 (Beispiele auf Diskette) 
(Sfr. 48,— /6S 432,—) DM 48,— 




Dr. P. Albrecht . 

Commodore 64 — Multiplan 

1984, 230 Seiten 

Multiplan jetzt auch fur den Commodo- 
re 64 • der voile Leistungsumfang der 
16-Bit-Version • Emfuhrung in die Ar- 
beitsweise von Tabellenkalkulations- 
programmen ■ praxisnahe Beispiele • 
Beschreibung alle Befehle und Funktio- 
nen • nicht nur fur Anfanger. 
Best.-Nr. MT 655 ny in 
(Sfr. 44,20/oS 374,40) UIYI 40, 




J.W.Willis/D.Willis 

Commodore 64 — 
leicht verstandlich 

1984, 154 Seiten 

Informationen for den Computer-Neu- 
ling • Installation und Inbetriebnahme • 
Programmieren in Basic - Grafik und To- 
ne • Auswahl von Hardware und Zube- 
h6r • Software fQr Ihren Computer • die 
ideale Einfuhrung in das Arbeiten mit Ih- 
rem Commodore 64. 
Best.-Nr. MT 700 ■%■■ Ofl Ofl 

(Sfr. 27 ,50/dS 232,40) UIYI £9,0U 




E. H. Carlson 

Basic mit dem Commodore 64 

1984, 320 Seiten 

Ein Basic-Lehrbuch fur den jugendli- 
chen Anfanger • Obersichtlich geglie- 
derte Lemprogramme • Alles uber 
INPUT-GOTO ■ Let-Befehle ■ Editorfunk- 
tionen • POKE-Befehle fur die Grafik • 
geeignet auch als Leitfaden fur Lehrer 
und Eltern. 

Best.-Nr. MT 657 niUI >IQ 
(Sfr. 44,20/oS 374,40) UIYI HO, 





G. Beekman 

Ihr Heimcomputer Commodore 64 

August 1984, 296 Seiten 

Alles Wissenswerte im Umgang mit 
dem Commodore 64 • Planung, Kauf 
und Inbetriebnahme der Anlage - Ein- 
satz fertig gekaufter oder selbst erstell- 
ter Programme • Schwachen und Star- 
ken der altbewahrten und neuesten Pro- 
grammiersprachen • die gangigsten 
Software-Angebote fur jeden Einsteiger • 
Best.-Nr. MT 701 nM OO 

(Sfr. 35,— /6S 296,40) UIVI OO, — 



R. E.Williams 

CalcResult richtig eingesetzt 

1984, 236 Seiten 

Ein Ubungsbuch speziell fur Anwender 
des CalcResult-Computerprogramms • 
zahlreiche Einsatzmoglichkeiten im tag- 
lichen Leben • Kreditruckzahlung • Ra- 
battberechnung • Kostendeckung • In- 
ventur • Finanzierung und Ankauf eines 
Hauses und vieles andere mehr. 
Best.-Nr. MT 671 nM AQ 
(Sfr. 44,20/6S 374,40) UIYI HO, 




M.J. Winter 

Das Commodore 64- LOGO - 
Arbeitsbuch 

September 1984, 225 Seiten 

Kinder lernen auf'dem Commodore 64 
mit der Schildkrote als Lehrer: Bilder 
malen • Grafikeffekteerzeugen • Worter 
verarbeiten • Prozeduren und Variablen 
• Umgang mit Begriffen wie: Langen- 
maB, Winkel, Dreieck, Quadrat. 

Best.-Nr. MT 720 ni\/l O /I 

(Sfr. 31, 30/6S 265,20) UIYI OH, — 




W. B. Sanders 

Einfiihrungskurs: Commodore 64 

1 984, 276 Seiten 

Die Programmiersprache Basic • Ein- 
satzgebiete des Commodore 64-Basic: 
Grafik, Musik, Dateiverwaltung • mitvie- 
len Beispielprogrammen, haufig beno- 
tigten Tabellen und nutzlichen Tips • fur 
Einsteiger und Fortgeschrittene. 
Best.-Nr. MT 685 nM OO 

(Sfr. 35,— /6S 296,40) UIYI GO, — 




. 



M. Michalik 

35 ausgesuchte Spiele fiir Ihren 
Commodore 64 

September 1984, 141 Seiten 

35 spannende Spiele zum Selbstpro- 
grammieren • Stromschnellen • Nacht- 
himmel ■ Weltraummanover • Rakete- 
nabwehr ■ Elektrische Mauer • Heck- 
schOtze • Le Maus * Codeknacker ■ 
WQrfelrallye • Gedankenleser • SchieB- 
bude • Dolmetscher u.v.a.m. 
Best.-Nr. MT 774 nM O A OH 

(Sfr. 23,— /6S 193,40) UIYI Z4,OU 




S. Urute 

Grafik & Musik auf dem 
Commodore 64 

Oktober 1984, 336 Seiten 

68 gut strukturierte und kommentierte 
Beispielprogramme zur Erzeugung von 
Sprites und Klangeffekten • Sprite- 
Tricks • Zeichengrafik ■ hochaufldsen- 
de Grafik • Musik nach Noten • spezielle 
Klangeffekte • Ton und Grafik • fQr fort- 
geschrittene Anfanger, die alle Moglich- 
keiten des C64 ausnutzen wollen. - 
Best.-Nr. MT 743 nM QQ 

(Sfr. 35— /6S 296,40) UIVI OO, — 




M.J. Winter 

Lehrspielzeug Computer: 
C 64/VC-20 

Juli 1984, ca. 120 Seiten 

Speziell fur Kinder entwickelt fOhrt die- 
ses Buch spielerisch in die Basic-Welt 
des C 64/VC-20 ein • mit vielen lehrrei- 
chen Spielprogrammen und Grafikmog- 
lichkeiten • kleinere Kinder benotigen 
die Hilfe ihrer sachkundigen Eltern. 

(Sfr. 23,-/6S 193,40) DM 24,80 



In guten Buchhandlungen, Computers hops und Fachabteilungen 

der Kaufhauser. 



Markr^fcchnik 



Verlag Aktiengesellschaft, 

Hans-Pinsel-Str. 2, 8013 Haar bei Munchen, s 089/4613-220 

Schweiz: M&T-Vertriebs AG, Alpenstr. 14, CH-6300 Zug, * 042/223155 

Osterreich: Rudolf-Lech ner&Sohn, Heizwerkstralie 10, A-1232 Wien, s 0222/677526 



Windows 



C64 



»Windows« fur 
den 





Dieses Programm fur den C 64 stellt 
vier Speicher fur Bildschirminhalte im 



Text/Blockgrafikmodus zur Verfugung. 
Da diese Speicher im RAM »unterhalb« 
des Betriebssystems liegen, beanspru- 
chen sie keinen zusatzlichen Speicher- 
platz. Das Programm ist in Maschinen- 
sprache geschrieben und durch Ver- 
wendung eines Verschiebeladers in 



verschiedenen 
lauffahig. 



Speicherbereichen 



Besonders in groBeren Programmer) ist es oft wunschens- 
wert, zwischen mehreren Bildschirmen umschalten zu konnen 
oder aber Fenster mit Zusatzinformationen in den laufenden 
Bildschirm einblenden zu konnen, ohne jedoch seinen ur- 
sprunglichen Inhalt zu zerstoren. Urn dies zu ermoglichen, 
stellt das Programm vier Speicher zur Verfugung, in denen 
komplette Bildschirminhalte oder Teile daraus abgelegt wer- 
den konnen. Ein Speicher belegt einen Bereich von 2 KByte, 
jeweils ein KByte fur Zeichen und Farbe. Da diese Speicher un- 
terhalb des Betriebssystems im RAM ab Adresse $E000 un- 
tergebracht sind, beanspruchen Sie keinerlei zusatzlichen 
Platz. 



Anwendung 



Das Programm bietet folgende Betriebsarten: 
STORE: SYS BA,NR,XO,YO,FB,FH Speichern 
RECALL: SYSBA+3,NR Ruckholen 

SWAP: SYS BA+6,NR Austauschen 



Die Parameter haben folgende Bedeutung: 



BA 
NR 
XO,YO 

FB 
FH 



Basisadresse des Programms (siehe unten) 
Nummer des angesprochenen Speichers (0. 
Position der linken oberen Ecke des zu spei- 
chernden Bereiches (0..39,0..24) 
Breite des Bereiches (1...40) 
Hohe des Bereiches (1...25) 



•3) 



Die Fensterseite (Hohe) darf nur bis zum rechten (unteren) 
Bildrand reichen. Wenn zum Beispiel die linke obere Ecke auf 
die Koordinate X = 1 und Y = 5 gesetzt ist, so ist die maxima- 
le Fensterbreite 30 und die maximale Fensterhohe 20. Falsche 
Angaben fur die Parameter erzeugen die Fehlermeldung IL- 
LEGAL QUANTITY ERROR«. 

STORE: Urn einen kompletten Bildschirm abzuspeichern, ge- 
ben Siefolgendesein: SYS BA,NR,0,0,40,25. Mitanderen Pa- 
rametern erzeugen sie ein Bildschirmfenster, das bei RECALL 
auch nur den durch diese Parameter definierten Bereich iiber- 



schreibt. Darum bleibt der ursprungliche Bildschirm erhalten. 
RECALL: Es ist nur die Angabe der Speichernummer notig. 
Der gespeicherte Bereich wird an seine ursprungliche Position 
zuruckgeschrieben. 

SWAP: Wenn Sie ein schon vorher vorbereitetes und im Spei- 
cher stehendes Informationsfenster in den aktuellen Bild- 
schirm einblenden, wird dessen ursprunglicher Inhalt zerstort. 
Urn ihn zu erhalten, muBten Sie ihn vor der Einblendung in ei- 
nen noch freien Speicher retten. SWAP erleichtert die Arbeit 
und spart Speicherplatz, indem es die Inhalte von aktuellem 
Schirm und Speicher austauscht. Mit einmal SWAP rufen sie 
den Speicher ab, noch einmal SWAP erzeugt wieder das ur- 
sprungliche Bild. Die Information uber Position und GroBe des 
auszutauschen Bereiches liefert das Bild im Speicher. SWAP 
wird daher nur mit der Speichernummer aufgerufen. 

Noch ein Hinweis: Vermeiden Sie es, mit RECALL oder 
SWAP einen Speicher aufzurufen, in den noch nichts hineihge- 
schrieben wurde, dies wiirde zum Absturz des Programms 
fuhren (siehe: Kompatibilitat zu Simons-Basic). Der Basic- 
Lader initialisiert alle 4 Speicher, urn einer Fehlbedienung vor- 
zubeugen. 



Laden des Programmes 



Die Verschieberoutine des Basic-Laders gestattet es, das 
Programm auf den Anfang jeder (sinnvollen) Speicherseite zu 
legen. Nach dem Start bietet der Lader die Optionen: 

1 RAM-Ende normales Basic ($9E00) 

2 RAM-Ende Simons-Basic ($7E00) 

3 Geschutzter Bereich ($C000) 
> 7 Eingabe der Startseite 

Die Optionen 1 bis 3 setzen den Programmanfang auf die an- 
gegebene Adresse, bei Eingabe einer Zahl > 7 wird diese als 
die Nummer derjenigen Speicherseite interpretiert, wo das 
Programm abgelegt werden soil. 

Aus der Nummer der Speicherseite erhalt man durch Multi- 
plikation mit 256 die noch fehlende Basisadresse. Das Lade- 
programm gibt sie am SchluB mit aus. 

Der Vektor fur die Basic-Obergrenze in (55),(56) wird ent- 
sprechend der Startadresse des Maschinenprogramms her- 
untergesetzt, sofern das Programm nicht im geschutzten Be- 
reich untergebracht ist. Beachten Sie, daB Sie diesen Vektor 
nach einem Reset beziehungsweise STOP/RESTORE korri- 
gieren, sonst wird das Programm uberschrieben. 

Im Programmlisting erkennen Sie zwei Unterschiedlich um- 
fangreiche Blocks von DATA-Zeilen. Der erste, groBe Block 
stellt das eigentliche Programm dar, der kleine ist eine Liste 
von Adressen, welche relativ zum Programmanfang diejenigen 
Bytes angeben, die bei einer Verschiebung korrigiert werden 
mussen. Der Korrekturwert ergibt sich aus der Differenz zwi- 
schen der Startadresse, mit der das Programm assembliert 
wurde ($9E00=Speicherseite 158) und der gewunschten 
Startseite. Die beiden Blocks besitzen eigene Checksummen 
und OK-/Fehlermeldungen. 

Kompatibilitat zu Simons-Basic 

»Bildspeicher« ist auch eine hilfreiche Erweiterung der 
Simons-Basic-Befehle fur die Bildschirmsteuerung. Es sind je- 
doch folgende Punkte zu beachten: 

— Die Hires-Grafik uberschreibt alle vier Speicher. Diese 
mussen daher vor einem Zugriff mit »RECALL« oder »SWAP« 
unbedingt neu beschrieben werden, 

— Der geschutzte Bereich ab $C000 wird ebenfalls von Hi- 
res uberschrieben, so daB »Bildspeicher« in Programmen, wel- 
che die Hires-Grafik benutzen, am Basic-RAM-Ende unterge- 
bracht werden muB (Option 2). 
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030? 



C64 



Windows 



Ob Sie jedoch nun mit Oder ohne Simons-Basic arbeiten, in 
jedem Falle ist »Bildspeicher« eine nutzliche Routine, die auch 
dem C 64-Besjtzer das Fenster zum »Windowing« aufstoRt. 

(Hans-Herbert Hagedom / ev) 
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Listing «Bildspeicher« 



100 
ii0 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 



REM 
REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 



********************** 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



BILDSPEICHER 



H.H.HAGEDORN 
RUPPRECHTSTR.30 



83 LANDSHUT 



TEL. 0871/67337 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



********************** 



<143> 
<081> 

<201> 

<101> 

<163> 

<121> 

<202> 

<141> 

<101> 

<161> 

<199> 

<181> 

<007> 

<032> 

<006> 



PRINT" CCLEAR 3": PRINT: PRINT 
250 PR I NT " CSPACE5 , RVSON IB I LDSPE I CHER-POS I T I ON 

CSPACE 3" <249> 

260 PRINT: PRINT" CSPACE3HN0RMAL-BASIC CSPACE 3= 

CSPACE3*9E00CSPACE33(1) " <206> 

265 PRINT:PRINT" CSPACE33SIM0NS-BASICCSPACE3= 

CSFACE3$7E00CSPACE3 3(2) " <226> 

270 PR I NT : PR I NT " C SPACE3 3GESCH . BERE I CH= CSPACE 3 

*C000CSFACE3 3(3) " <001> 

275 PRINT: PRINT" CSPACE3 3PAGE-ADRESSE CSPACE 3 



E I NGEBEN CSPACE 3 <>7 ) " 
280 PRINT: PRINT TAB (25) : INPUT L 
290 IF L=l THEN L=158 
300 IF L=2 THEN L=126 
305 IF L=3 THEN L=192 

310 IF L>7 AND L<255 THEN D=158-L: SOTO 320 
315 PRINT"???": GOTO 280 



<024> 
<195> 
<032> 
<038> 
<047> 
< 202 > 
<051> 
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POKE 2,D+100:POKE 780, L: IF L<161 THEN POKE 



56, L: POKE 55,0 <177> 

325 CLR: I=PEEK (780) *256: J=I <145> 

330 READ A: IF A>=0 THEN POKE I , A: 1=1+1 : S=S+A 

:GOTO 330 <207> 

340 IF SOS 1530 THEN PRINT"DATENFEHLER" ,S: END 

<116> 
345 PRINT"PROGRAMMDATENCSPACE3OK":S=0 

:D=PEEK(2)-100: IF D=0 THEN 380 <239> 

350 READ P:IF P>=0 THEN A=J+P:POKE A,PEEK(A)-D 

:S=S+P:GOTO 350 <036> 

360 IF S08737 THEN PRINT"BLOCKKORREKTURFEHLER" , 

S : END - < GW3 > 



385 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 
590 
600 
610 



640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

905 

910 

920 

930 

940 

950 

960 

970 

980 

990 



PR I NT : PR I NT " BLOCKKORREKTUR C SPACE DDK " 
PR I NT : PR I NT " BAS I SADRESSE CSPACE 3= CSPACE 

<104> 
FOR 1=0 TO 3:SYS J , I ,0,0,40,25: NEXT 
DATA 076,009,158,076,087,158,076,091 
158,032,110,158,224,004,176,066 
142,163,159,032,110,158,224,040 
176,056,142,159,159,032,110,158 
224,025,176,046,142,160,159,032 
110,158,224,000,240,036,024,138 
109,159,159,201,041,176,027,202 
142,161,159,032,110,158,224,000 
240,016,024,138,109,160,159,201 
026,176,007,142,162,159,032,116 
158,096,162,014,076,058,164,169 
000,240,002,169,255,141,166,159 
032,110,158,224,004,176,235,142 
163,159,032,197,158,096,032,253 

174,076, 158, 183,032,005, 159,032 
076,159,160,003,185,159,159,145 
091,136,016,248,024,165,091,105 

004, 133,091 , 174, 162, 159, 172, 161 
159,177,087,145,091,177,089,145 

093,136,016,245,032,112,159,202 
208,236,096,172,161,159,177,087 
072,177,091,145,087,104,145,091 

1 77 , 089 , 072 , 1 77 , 093 , 1 45 , 089 , 1 04 
145,093,136,016,233,032,112,159 
202,208,224,240,059,120,165,001 
072,169,053,133,001,032,076,159 
160,003, 177,091 , 153, 159, 159, 136 
DATA 016,248,032,005, 159,024, 169,004 
DATA 101 ,091 , 133,091 , 174, 162, 159, 173 
166, 159,208, 183, 172, 161 , 159, 177 
091,145,087,177,093,145,089,136 
016,245,032,112,159,202,208,236 
104,133,001,088,096,032,067,159 
024,172,160,159,240,016,173,164 
159,105,040,141,164,159,144,003 
238,165,159,136,208,240,024,173 
164,159,109,159,159,141,164,159 
133,087,133,089,144,003,238,165 
159,024,173,136,002,109,165,159 
133,088,024,169,216,109,165,159 
133,090,096, 169,000, 141 , 164, 159 
141,165,159,096,169,000,133,091 
133,093,169,224,133,092,169,228 
133,094, 174, 163, 159,240,016,024 
160,008, 152, 101 ,092, 133,092, 152 
101,094,133,094,202,208,243,096 
024,169,040,101,087,133,087,144 
002,230,088,024,169,040,101,089 
133,089,144,002,230,090,056,173 
161,159,101,091,133,091,144,002 
230,092,056, 173, 161 , 159, 101 ,093 
133,093,144,002,230,094,096,000 

-1 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
DATA 
DATA 

DATA 
620 DATA 
630 DATA 



DATA 
DATA 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 



REM KORREKTURTABELLE 



DATA 002,005,008,011,018,021 
DATA 028,031,038,041,050,058 
DATA 061,070,077,080,095,098 
DATA 105,108,118,121,126,141 
DATA 144,158,165,191,207,214 
DATA 220,230,233,238,252,263 
DATA 267,272,277,282,289,292 

1000 DATA 295,304,311,319,327,330 

1010 DATA 348,393,405,-1 



<241> 
3"; J 

<051> 

<035> 

<017> 

<019> 

<047> 

<047> 

<041> 

<069> 

<063> 

<080> 

<097> 

<130> 

<114> 

<118> 

<156> 

<156> 

<177> 

<170> 

<180> 

<222> 

<193> 
<234> 
<229> 
<255> 
<236> 
<233> 
<003> 
<023> 
<021> 
<035> 

< 067 > 
<078> 

< 056 > 
<076> 
<082> 
<088> 
<112> 
<137> 
<132> 
<141> 
<161> 
<159> 
<139> 
<189> 
<186> 
<182> 
<203> 
<214> 
<218> 
<231> 
<233> 
<255> 
<253> 
<109> 
< 226 > 
<213> 
<129> 
<158> 
<187> 
<174> 
<202> 
<200> 
<246>, 
<229> 
<049> 
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Dieses Programm dient, wie der Name 



schon sagt, zum automatischen Erzeu- 



gen von DATA-Zeilen. Da das Programm 
in Maschinensprache geschrieben ist, 
ist die Ausfuhrungszeit entsprechend 
kurz. Der Inhalt von 10000 Speicherzel- 
len wird in weniger als 4 Sekunden in 
DATA-Zeilen umgewandelt! 

Es kommt immer wieder vor, daB der Inhalt von Speicherzel- 
len in DATA-Zeilen umgewandelt werden muB. Verschiedene 
Losungen habe ich aus irgendwelchen Buchern oder Zeit- 
schriften abgetippt. Da ich keine dieser Programme als befrie- 
digend empfand, begann ich, einen DATA-Erzeuger in Basic zu 
programmieren. Auch dieses Programm war zu unflexibel und 
vor allem zu langsam. Da ich zwischenzeitlich verstarkt in Ma- 
schinensprache programmiere, bestand ein noch groBerer Be- 
darf an einem leistungsfahigen DATA-Erzeuger. Also beschloB 
ich, einen solchen in Maschinensprache zu erstellen. 

Leicht zu bedienen 



Durch eine umfangreiche Fehlerprufung ist das Programm 
sehr anwendungssicher. Die DATA-Zeilen konnen, falls ge- 
wunscht, an ein Basic-Programm angehangt werden, und das 
beliebig oft. . 
Eingabe-Fbrmat: 

SYS49152,ANFADR,ENDADR,ANFZNR,SCHRITTWEITE 
ANFADR: Adresse der ersten Speicherzelle, aus de- 

ren Inhalt DATA-Zeilen erzeugt werden 

sollen. 

Adresse der letzten Speicherzelle fur die 

DATA-Zeilen-Erzeugung. 

Zeilennummer der ersten DATA-Zeile (muB 

groBer sein als die letzte Zeilennummer im 

Basic-Programm, falls eines im Speicher 

ist). 
SCHRITTWEITE: Urn diese Zahl wird die Zeilennummer bei 

der DATA-Erzeugung jeweils erhoht. 



ENDADR: 



ANFZNR: 



Fehlermeldungen 



Fur ANFADR, ENDADR, ANFZNR durfen nur ganze, positive 
Zahlen von 0-65536 eingegeben werden. Die SCHRITTWEI- 
TE darf zwischen 1 und 255 liegen. Werden Zahlen eingege- 
ben, die auBerhalb des oben genannten Bereichs liegen, so 
kommt es zur Fehlermeldung »? ILLEGAL QUANTITY ER- 
ROR^ Weitere Fehlermeldungen sind: 

— ANFANGSADRESSE GROESSER ALS ENDADRESSE. 
FEHLER! Logischerweise muB die Anfangsadresse kleiner 
sein als die Endadresse. 

— ALS SCHRITTWEITE NICHT MOEGLICH! 

Wurde als Schrittweite akzeptiert werden, so hatten alle 
erzeugten DATA-Zeilen die qleiche Zeilennummer. 



— ZEILENNUMMER GROESSER ALS 63999! 

Bei der Erzeugung der DATA-Zeilen wurde eine Zeilennum- 
mer erzeugt, die groBer als 63999 war. Da der C 64 nur 
Zeilennummern bis 63999 zulaBt, wurden groBere Zeilen- 
nummern Probleme der Art aufwerfen, daB sie sich nicht 
mehr loschen oder andern lieBen. Man sollte eine kleinere 
Anfangs-Zeilennummer oder Schrittweite wahlen, urn den 
Fehler zu beseitigen. 

— FREER SPEICHERPLATZ REICHT NICHT! 

Bei der DATA-Erzeugung wurde festgestellt, daB der freie 
RAM-Bereich nicht ausreicht. 

Beim Auftreten eines Fehlers wird die DATA-Erzeugung, falls 
schon begonnen, sofort abgebrochen. Die bis dahin erzeug- 
ten DATA-Zeilen werden wieder geloscht. Die Programmzeiger 
werden wieder so eingestellt, wie es vor dem Aufruf des DATA- 
Erzeugers der Fall war. 

War die DATA-Zeilen-Erzeugung erfolgreich, soerscheintdie 
Meldung »DATA ERZEUGER FERTIG! (C) J. MATERNA«. Jetzt 
befinden sich die DATA-Zeilen und die Schleife zum Lesen und 
ZuruckPOKE der DATAs im Speicher. Das Basic-Programm 
kann wie gewohnt gelistet, gestartet oder gespeichert 
werden. 

Wenn man mochte, kann man noch beliebige weitere DATA- 
Zeilen erzeugen. Sie werden automatisch an die bereits vor- 
handenen angehangt. Wichtig: Die neue Anfangszeilennum- 
mer muB groBer sein als die letzte im Programm verwendete. 
Am besten LISTet man das Programm erst auf, urn die hochste 
Zeilennummer festzustellen. Mochte man die DATA-Blocke als 
Unterprogramme aufrufen, muB naturlich noch am Ende des 
DATA-Blocks eine Zeilennummer mit »RETURN« eingegeben 
werden. 



Tips und Beispiele 



Bei alien Bereichen wird vorausgesetzt, daB sich der DATA- 
Erzeuger lauffahig im Speicher befindet, ebenso die Daten, 
aus denen DATA-Zeilen erzeugt werden sollen. 

Sprite-Blocke ubernehmen 

— Das Programm, das die Sprites erzeugt, laden und starten. 
Wenn die Sprites erzeugt sind, das Programm abbrechen 
und die Adressen der Sprites aufschreiben. 

— Das Programm mit NEW loschen. 

— Das eigene Programm, das die Sprites verwenden soil, la- 
den und die hochste Zeilennummer feststellen. 

— Beispielsweise SYS 49152, Anfangsadresse der Sprites, 
Endadresse der Sprites, hochste Zeilennummer des eige- 
nen Programms plus 10, sowie beliebige Schrittweite 
eingeben. 

— Den letzten Punkt beliebig oft wiederholen, bis alle Sprites 
in DATA-Zeilen umgewandelt sind. Dabei darf nicht verges- 
sen werden, stets erneut die hochste Zeilennummer fest- 
zustellen. 

— Es ist sinnvoll, am Ende der DATA-Blocke jeweils eine Zeile 
mit »RETURN« einzugeben. Danach konnen die Sprites ir- 
gendwo vom Hauptprogramm aus mit einem GOSUB- 
Befehl aufgerufen werden. 

— Programm testen und speichem. 

Nach dem oben beschriebenen Verfahren kann man natur- 
lich nicht nur Sprites ubernehmen, sondern auch Maschinen- 
programme und neue Zeichensatze. Insbesondere kann man 
auch sehr gut Maschinenprogramme, die von einem Assem- 
bler erzeugt wurden, an ein Basic-Programm anhangen. 
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Maschinenprogramm fur Datenferniibertragung 
vorbereiten 

Da die Daten im ASCII-Format ubertragen werden, mussen 
sie vorher umgewandelt werden. 

Beispiel: Das zu ubertragende Programm ist 8000 Bytes 
lang und wird normal ab Basic-Anfang geladen. 

— Das zu ubertragende Programm laden. 

— POKE 44,40 : POKE 40 * 256,0 : NEW 

Damit ist das Programm vor dem Uberschreiben geschutzt. 
Wenn das Maschinenprogramm am Speicherende liegt, 
dann muB naturlich der Zeiger fur das Basic-Ende herabge- 
setzt werden. 

— SYS 49152,2049,10049,100,2 

Nun muB das Programm nur noch als Datei gespeichert wer- 
den und kann dann von einem Terminal- Programm gesendet 
werden. 

Ein Monitor-Programm ($9000 — $9FFF) in DATA-Zeilen 
verwandeln. 

— Monitor laden. 

— SYS 49152,36864,40959,100,2. 

— Abspeichem 

Das Programm kann nun normal geladen und gestartet wer- 
den. Danach kann der Monitor mit der entsprechenden 
SYS-Adresse aufgerufen werden. 

Bildschirminhalt in DATA-Zeilen verwandeln 

SYS 49152,1024,2023,100,2 

Das Programm kann sofort gestartet werden. 



Programmierte DATA-Erzeugung 



Der DATA-Erzeuger laBt sich auch von Basic- Programmen 
aus aufrufen. Dabei durfen die Parameter naturlich in Variablen 
ubergeben werden. Doch Achtung: Wenn der DATA-Erzeuger 
fertig ist, wird ein CLR ausgefuhrt und zum Basic-Warmstart 
gesprungen. Dabei wird das Basic-Programm verlassen. 

Urn wieder ins Basic-Programm zuruckzukommen, empfeh- 
le ich folgenden Trick, den ich am besten durch ein Beispiel de- 
monstriere: 

10A=900:Z=100 

20 A=A+100:Z=Z+20:IF Z=200 THEN END 

30 PRINT CHR$(147);:PRINT CHR$(17):PRINT CHR$(17) 

40 PRINT'A=";A; n :Z=";Z;":GOTO 20";CHR$(19) 

50 POKE 631,13:POKE 198,1 

60 SYS 49152,A,A+100,Z,2:END 

Dieses Programm halt in Zeile 60 an und startet sich so lange 
wieder automatisch, bis in Zeile 20 Z=200 ist. Dabei werden 
die Variablen, die in Zeile 40 auf dem Bildschirm ausgegeben 
werden, mit ubemommen. Fur den Auto-Start des Programms 
ist die Zeile 50 verantwortlich. Dort wird ein RETURN (POKE 
631,13) in den Tastaturpuffer gePOKEt und die Lange des Ta- 
staturpuffers (POKE 198,1) auf 1 gesetzt. 

Anhand dieses Beispiels sollte jeder in der Lage sein, dieses 
Problem zu losen. 

Ich hoffe, daB ich durch meine Beispiele genug Anregungen 
fur den Einsatz des DATA-Erzeugers gegeben habe. 



Die Programme! ngabe 



Nachdem das Programm in den C64 eingegeben ist, kann 
es bedenkenlos gestartet werden. 



Falls dann die Meidung «DATA-FEHLER« erscheint, mussen 
die DATA-Zeilen noch einmal uberpruft werden. Wenn die Mel- 
dung «PROGRAMM OK« erscheint, speichert man das Pro- 
gramm am besten ab, bevor man den DATA-Erzeuger aufruft. 
Vor dem Programmstart mit »SYS« loscht man am besten den 
Speicher mit »NEW« Oder ladt das Programm, fur das DATAs er- 
zeugt werden sollen. 

Mochte man den DATA-Erzeuger als Maschinenprogramm 
direkt speichern, so sind folgende Befehle einzugeben: 
POKE 43,0:POKE 44,192:POKE 45,66:POKE 46,195:SAVE 

"MP-DATA-ERZEUGER",8,1 

Fur die Datasette muB statt der 8 naturlich eine 1 eingege- 
ben werden. 

Das so gespeicherte Programm ladt man mit »LOAD "MP-DATA- 
ERZEUGER",8,1«. 

Nachdem man NEW eingegeben hat, ist das Programm so- 
fort einsatzbereit. 

(Jorg Materna / ev) 



10 REM 
15 REM 
20 REM 
30 REM 
40 REM 
50 REM 
60 REM 
65 REM 
70 REM 



it******************************* 

* * 

* DATA-MAKER * 

* * 

* JOERG MATERNA * 

* BECKUMER STR.91 * 

* 4730 AHLEN * 

* * 
******************************** 



<217> 
<242> 
<174> 

< 00 1 > 

< 1 38 > 
<244> 

< 085 > 

< 036 > 
<021> 
<218> 
<157> 



75 REM 

B0 PRINT CHRf (147) 

100 FDR A=49152 TO 49986: READ X:POKE A,X:SU=SU+X 

:NEXT «362> 

105 IF SU 0102090 THEN PRINT "DATA-FEHLER" <173> 

106 PRINT " PROGRAMM CSPACEJOK" <070> 
110 DATA 169,0,141,65,195,32,233,193,132,251, 

133,252,32,233,193,140,54,195,141,55 <212> 
120 DATA 195,32,233,193,140,59,195,141,60,195, 

32,253,174,32,158,183,142,63,195,138 < 042 
130 DATA 208,3,76,58,194,165,252,205,55,195,144, 

12,208,7,165,251,205,54,195,144 156 

140 DATA 3,76,68,194,56,165,45,233,2,141,61,195, 
133,253,165,46,233,0,141 ,62,195 <157> 

150 DATA 133,254,160,2,173,59,195,145,253,200, 

173,60,195,145,253,200,169,129,145 <214> 
160 DATA 253,200,169,65,145,253,200,169,178,145, 
253,200,152,72,165,251,166,252,32 014> 

170 DATA 243,193,141,64,195,104,168,32,7,194, 

169,164,145,253,200,152,72,173,54, 195 : 089 > 
180 DATA 174,55,195,32,243,193,141,64,195,104, 

168,32,7,194, 169,58,145,253,200, 169 <059> 
190 DATA 135,145,253,200,169,88,145,253,200,169, 
58,145,253,200,169,151,145,253,200 <094> 
200 DATA 169,65,145,253,200,169,44,145,253,200, 

169,88,145,253,200,169,58,145,253 <025:- 
210 DATA 200,169,130,145,253,76,52,193,160,2, 

173,59,195,145,253,200,173,60,195,145 <U7> 
220 DATA 253,200,169,131,145,253,200,152,72,160, 
0,177,251,32,160,193,104,168,173 <005> 
230 DATA 56,195,201,48,240,3,145,253,200,173,57, 
195,201,48,208,10, 173,56,195,201 <029> 
240 DATA 48,240,6,173,57,195,145,253,200,173,58, 
195,145,253,165,251,205,54,195,208 •163> 
250 DATA 13,165,252,205,55,195,208,6,238,65,195, 
/6, 52, 193, 230, 25 1,208, 2, 230, 252 < 009 > 

260 DATA 192,74,176,8,200,169,44,145,253,76,223, 
192,200, 169,0, 145,253,200, 140,64 <062> 

270 DATA 195,160,0,24,165,253,109,64,195,145, 

253,141,64,195,165,254,105,0,200,145 <ll?? 
280 DATA 253,133,254,197,56,208,3,76,45,194,173, 
64,195,133,253,173,65,195,208,28 <119> 

290 DATA 24,173,59,195,109,63,195,141,59,195, 

144,13,238,60,195,173,60,195,201,250 < 166 > 
300 DATA 208,3,76,32,194,76,205,192,24,165,253, 

105.,2, 133,45, 165,254, 133,46, 144,2 : 100> 
310 DATA 230,46,160,0,152,145,253,200,145,253, 

32,78,194,32,96,166,76,134,227,162 ■■■ 1 1 4 
320 DATA 0,142,56,195,142,57,195,142,58,195,201, 
100,144,8,233,100,238,56,195,76 030 > 

330 DATA 171,193,201,10,144,8,233,10,238,57,195, 
76, 183, 193,201 ,0,240,8,238,58,195 <186> 



Q2B3? 



33 



Single-Step 



VC20 



740 DATA 233,1, 76, 1^5,193, 24, 16S ,48,109,56,195, 

14i ,56, 195,169,48,109,57, 195,141 <139> 

350 DATA 57,195,169,48,109,58,195,141,58,195,96, 

32 , 253 , 1 7 4 , 32 , 1 38 , 1 73 , 32 , 247 , 1 83 < 20 1 > 
T60 DATA 96,133,99,134,98,162,144,56,32,73,188, 

32 , 223 , 139 , 32 , 1 35 , 180, 32 , 166, 182 < 1 44 -■ 

370 DATA 96,162,0,165,34,141,20,194,165,35,141, 

21 , 174,189,0, 1,145,253,200,232,206 202 
380 DATA 64,195,208,244,96,32,86,194,169,120, 

1 60 , 1 94 , 32 , 30 , 1 7 1 , 76 , 1 54 , 1 93 , 32 , 86 < 1 6 1 > 
390 DATA 194,169,155,160,194,32,30,171,76,154, 

1 93 , 1 69 , 1 92 , 1 60 , 1 94 , 32 , 30 , 1 7 1 , 76 , 1 54 < 058 
400 DATA 193,169,229,160,194,32,30,171,76,154, 

193, 169,11, 160, 195,32,30, 171,96, 173 =015; 
410 DATA 61,195,133,253,173,62,195,133,254,160, 

0, 152, 145,253,200, 145,253,24, 173 • 155> 

420 DATA 61,195,105,2,133,45,173,62,195,105,0, 

133,46,96, 18,90,69,73, 76,69,78,78 <207> 
430 DATA 85,77,77,69,82,32,71,82,79,69,83,83,69, 



82,32,65,76,83,32,54,51,57,57, 



7 



04 



kJ y 



440 DATA 33,146,0, 18, 70, 82,69, 73 r 69, 82, 32, 83, 80, 
69 , 73 , 67 , 72 ,69 , 82 , 80 , 76 , 65 , 84 , 90 :; 034 > 

450 DATA 32,82,69,73,67,72,84,32,78,73,67,72,84, 
33 , 1 46 , , 1 8 , 48 , 32 , 65 , 76 , 83 , 32 , 83 < 034 • 

4o0 DATA 67, 72, 82, 73, 84, 84, 87, 69, T3, 84, 69, 32, 78, 
73 , 67 , 72 , 84 , 32 , 7 7 , 79 , 69 , 7 1 , 76 , 73 < 090 

470 DATA 67,72,33,146,0,18,65,78,70,65,78,71,83, 
ti5 , 68 , 82 , 69 , 83 , 83 ,69, 32 , 62 , 32 , 69 ? 068 

4S0 DATA 78,63,65,68,82,69,83,83,69,46,70,69,72, 
76,69,82,33, 146,0, IB, 42, 32,63,65 .089: 

4V0 DATA 84,65, ,2,69,82,90,69,85,71 ,69,82,32,70, 
69,82,84,73, 71 , 33,32,40,67,41 ,32 <070 • 

iiZ>3 DATA 74, 46, 7?, 65, 84, 69, 82, 78, 65, 46, 32, 42, 

I 46,0,66, 1 95, 4S, 52, 50,244,1 , 1 ,8, 10 <01B 

510 DATA 48,0,0 166 > 



Single 
fiir 





»Single-Step« soil bei Maschinenpro- 
grammen zum Aufdecken von Fehlern 
beitragen. Anfangern erlaubt es ein 
schnelleres Einfiihlen in die Wirkungs- 
weise der Masehinenbefehle. 

Das Programm ist fiir den Commodore VC 20 mit minde- 
stens 8 KByte Speichererweiterung gesehrieben (ein ent- 
sprechendes Programm fur den C64 finden Sie im 64'er 
Stammagazin). Es ist ein DATA-Listing einer Maschinenspra- 
cheroutine. Uber Zeile 9 des Listings laBt sich die gewunschte 
Startadresse festlegen; die Basic-Schleife ab Zeile 300 korri- 
giert absolute Sprungadressen. Hierzu wurden bei der Pro- 
grammerstellung die absoluten Zieladressen so eingestzt, als 
stunde das Programm ab Adresse im Speicher. Der Basic-Teil 
sorgt dafur, daB die Startadresse (ss) als Offset berucksichtigt 
wird. 

Nach einmaligem Starten laBt sich die Maschinensprache- 
routine mit SYS ss starten, der Basic-Teil kann demnach ge- 
loscht werden, solfte aber sicherheitshalber vorher abgespei- 
chert werden. 

Fiir die Bedienung des Programmes stehen die Funktions- 
tasten F1, F3 und F5 zur Verfugung. Ein Beispiel soil den Ab- 
laut verdeutlichen (Tabelle): 

Zunachst startet man »Single-Step« mit SYS ss, es erscheint 
dann die Uberschrift mit Bezeichnung der einzelnen Bild- 



schirmspalten und der ersten, ubersetzten Zeile. Nun kann 
man uber F3 in den Editier-Modus gelangen, es lassen sich 
samtliche dargestellte Register und Flags andern. Dazu fahrt 
man mit dem Cursor einfach an die entsprechende Stelle und 
tippt die gewunschten Werte ein. Im Editier-Modus wird nun 
der PC (Programm-Counter) so geandert, daB er auf die Start- 
adresse der eigenen Routine zeigt (hier im Beispiel ist dies die 
Adresse $ 4000). Durch Betatigen der Taste F1 wird der hier 
abgelegte Befehl ausgefuhrt. Der PC zeigt dann auf die Start- 
adresse des nachsten Befehles, PSW (Programm Status 
Word, auch Flag-Register genannt),A,X und Y sind entspre- 
chend verandert. (Im Beispiel wurde der Akku mit den Daten 
#00 geladen). Jede weitere Betatigung der Funktionstaste 
F1 bringt einen weiteren Befehl zur Ausfuhrung. 

Jetzt noch eine Anmerkung zu Manipulationen im PSW 
(Flag-Register): Durch Andern einzelner Flags lassen sich zum 
Beispiel Schleifen vorzeitig beenden Oder, wie im Beispiel in 
Zeile 16 geschehen, auch verlangern; das Zero-Bit wurde zu- 
ruckgesetzt, was die CPU durch einen weiteren relativen 
Sprung auf Adresse $ 4000 quittieren muBte. 

Weiterhin lassen sich unter Benutzung des PSW, genauer 
des l-Flags, Breakpoints im Programm setzen. Es ist nicht im- 
mer notig das Programm schrittweise von Anfang bis Ende zu 
untersuchen. In solchen Fallen setzt man zu Beginn des inter- 



* * 



Beispiel ** 



$4000 
$4002 
$4003 
$4004 
$4005 
$4007 
$4008 
$400a 
$400c 
$400e 

$0000 

$0001 

$0002 



Ida #0 
tax 
sed 
sum clc 

adc$2,x 

inx 

cpx$0 

bne sum 

sta$1 

rts 

hex 



a900 

aa 

f8 

18 

7502 

e8 

e400 

d0f8 

8501 

60 



;sum gleichnull 

;index gleich null 

;dezimale addition 

;ubertrag nicht berucksichtigen 

;sum = sum+daten 

;alle elemente? 
;nein, dann weiter 

;lege Ergebnis ab 



02 ;anzahl elemente 

00 ;platz fiir summe reservieren 

793327 ;zu add. elemente in packed bed 



Ablaut mit Single-Step 



00 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

1 1 

12 

13 

14 

15 

16 

17 



* * 
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single — step 
:p c nv-bdizc a x y 



:e14e-00 

:4000- 

:4002-00 

.4003-00 

:4004-00 

:4005-00 

:4007-00- 

.•4008-00- 

:400a-10- 

:4004-10- 

.•4005-10- 

:4007-11- 

:4008-01- 

:400a-01- 

:400c-01- 



-00011- 



-00011 

-00011 

-01011 

-01010 

-01000 

-01000- 

01000- 

01000- 

01000- 

01001- 

01001- 

01011- 

01011- 



00-00-2c: 
- ff - f f - : 
-00- ff -2c : 
-00-00-2c: 
-00-00-2c: 
-00-00-2c: 
-79-00-2c: 
-79-01-2c: 
79-01 -2c: 
-79-01 -2c: 
-79-01-2c: 
-12-01-2c: 
-12-02-2c: 
12-02-2c: 
12-02-2c: 



;andern in — 
;nextstepfuhrtzu — 

;next step = set decimal flag 
;clear carry — 

;inkrementiere x-reg. — 
;vergleiche, setze n, z, c — 
;nicht null also sprung — 

• 

;addiere, setze n,v,z,c — 
;inkrementiere x-reg.— 
;vergleiche, setze n,z,c — 
;null also kein sprung — 
;ergebnisablegen ... 



mit Anderung: 



16 :400a-01-0101 1-12-02-2c: 
16' :400a- 

17' :4004-01-01001-12-02-2c: 
18' :4005-01 -01 000-1 2-02-2c: 
19' :4007-00-01000-39-02-2c: 
20' :4008-00-01000-39-03-2c: 



;andern — 
;erzwingt sprung — 

;addiere — 
;inkrementiere x-reg. 



Beispielgrogramm und Ablaut mit »Single Step« 
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essierenden Teiles den Befehl CLI ein. Es genugt nun im Edi- 
tiermodus das l-Flag zu setzen und mit F1 den nachsten Schritt 
zu starten. Das Programm wird erst wieder nach Abarbeiten 
deaCLI- und des darauffolgenden Befehles angehalten. 

Die Taste F5 dient zum Ausstieg aus der »Single-Step«- 
Routine. Ein Betatigen dieser Taste hat die gleiche Wirkung wie 
Stop/Restore, das heiBt es wird eine teilweise Neuinitialisie- 
rung und ein Sprung zum Basic-Warmstart durchgefuhrt. 
AbschlieBend noch eine Anmerkung zur Wirkungsweise: 
Ich benutze hier den Timer 1 des VIA 6522 (versatile inter- 
face adapter) in der Betriebsart »One-Shot«. Diese laBt sich 
Qber das ACR (auxiliary control register) definieren. Der Timer 
erzeugtjetzt nach jedem Start eineneinzelnen Interrupt. Durch 
geeignete Wahl des Timer-Zahlerstandes kann erreicht wer- 
den, da(3 nach jedem Riicksprung aus der Interruptroutine mit- 
tels RTI jeweils ein Befehl des zu untersuchenden Program- 
mes ausgefuhrt wird und darauffolgend die weitere Ablauf- 
steuerung wieder von der Interruptroutine ubernommen wird. 
Im ersten Hauptteil der Routine »Single-Step« hole ich dann die 
interessierenden Daten vom Stack und stelle sie auf dem Bild- 
schirm dar. Vor dem Rucksprung mittels RTI wird dann im zwei- 
ten Teil die eventuell geanderte Zeile wieder eingelesen und 
ubersetzt. 

(Hermann WeiGenberger / ev) 



70 DATA 240,175,224,135,240,207,224,29,24(3,28 



REM ** HERMANN WEISSENBERGER ** 

1 REM TEL 09722/2672 



3 REM 




4 REM 


: ** SINGLE - STEP ** : 


5 REM 


:PC NV-BDTZC A X Y : 


6 REM 


■ ■■■■««■■■■■■■■«■■■■■■■■ 


7 : 




8 REM 


STARTADRESSE — > SS 


9 : 


SS=24576: REM *6000 


10 : 





< 02 1 > 

< 1 2 1 > 

< 060 > 
<002> 

< 2 1 8 > 
<202> 

< 005 > 
<065> 

< 1 06 > 
<086> 
<068> 
<073> 
<070> 

<154> 

< 1 94 > 

<073> 
<059> 
<096> 
<076> 



11 REM ROUTINE VERSCHIEBBAR UEBER SS 

12 : 

13 POKE 56, INT (SS/ 256+. 001) 

14 POKE 55,INT(SS~256*PEEK<56)+.001) 

15 : 

16 REM ********************** 

17 REM DATALISTE DER ROUTINE (438 BYTE) 

18 : 
20 FOR I=SS TO SS+437: READ W: POKE I,W: NEXT 

<057> 
22 DATA 160,0,185,49,0,32,210,255,200,192 <233> 
24 DATA 44,208,245,120,173,43,145,41,63,141 

<087> 
26 DATA 43,145,169,93,141,20,3,169,0,141 
28 DATA 21,3,169,128,141,138,2,169,20,141 
30 DATA 36,145,169,0,141,37,145,88,96,147 
32 DATA 32 ,42,42,32, S3 , 73 , 78 , 7 1 , 76 , 69 
34 DATA 32,45,32,83,84,69,80,32,42,42 
36 DATA 13,80,67,32,32,32,78,86,45,66 
38 DATA 68,73,90,67,32,65,32,32,88,32 
40 DATA 32,89,13,173,36,145,169,0,72,40 
42 DATA 32,46,1,169,13,32,210,255,160,21 
44 DATA 169,45,32,210,255,136,16,248,186,160 

<173> 
46 DATA 0,32,57,1,32,57,1,200,32,85 <213> 
48 DATA 1,200,32,57,1,200,32,57,1,200 <042> 
50 DATA 32,57,1,32,159,255,32,228,255,201 <019> 
DATA 135,240,44,201 ,134,240,44,201, 133,208 

< 1 99 > 
DATA 238,186,160,0,32,112,1,32,112,1 <156> 
DATA 200,32,148,1 ,200,32, 112, 1,200,32 <191> 
58 DATA 112,1,200,32,112,1,169,0,141,37 <154> 
60 DATA 145,104,168,104,170,104,64,120,76,210 

<216> 
62 DATA 254,169,145,32,210,255,160,0,177,209 

<183> 
64 DATA 9,128,145,209,152,72,32,46,1,32 <190> 
66 DATA 159,255,32,228,255,201,0,240,246,170 

<182> 
68 DATA 104,168,177,209,41,127,145,209,224,133 

<036> 



< 1 99 > 

<248> 

< 02 1 > 
<045> 
<067> 
<077> 
<082> 
<172> 
<203> 



5 



54 
56 



•-. jL. ■_> vJ .•• 



72 DATA 224,157,240,37,224,48,144,206,224,71 

<193> 
74 DATA 176,202,224,58,144,4,224,65,144,194 

< 1 5 1 > 
76 DATA 177,209,41,127,201,45,240,186,138,32 

<198> 
78 DATA 210,255,200,192,22,144,177,169,157,208 

<045> 
80 DATA 5,192,0,240,169,138,32,210,255,136 <096> 
82 DATA 16,162,160,120,162,221,202,208,253,136 

<027> 



84 DATA 208,248,96,189,6,1,74,74,74,74 
S6 DATA 32,73,1,189,6,1,41,15,202,201 



< 1 9 1 > 
<096> 



88 DATA 
90 DATA 
92 DATA 



10,144,2, 233 , 57 , 1 05 , 48 , 1 45 , 209 , 200 < 096 > 
96, 189,6, 1 ,72, 104, 10,72, 169,48 
1 44 , 2 , 1 69 , 49 ,192,7, 240 , 2 , 1 45 , 209 



< 1 8 1 > 

< 1 9 > 



94 DATA 200,192,13,144,236,104,202,96,177,209 



<005 



96 DATA 
98 DATA 



32,139, 1 , 10,10,10, 10,157,6, 1 
200,177,209,32,139, 1 ,29,6,1 , 157 
100 DATA 6,1,200,202,96,201,48,176,2,105 
102 DATA 9,41,15,96,189,6,1,41,32,157 
104 DATA 6,1,169,128,72,177,209,201,49,208 
106 DATA 8,104,72,29,6,1,157,6,1,200 
108 DATA 104,74,72,208,236,104,202,96 

200 : 



205 
210 
215 
220 



REM *****•********■*•*•**•** *•** 
REM RELATIVE PLAETZE DER 
REM ABSOLUTEN 8PRUNGADRESSEN 



nnc: 



DATA 3,101, 122,125,129, 133,137, 141 , 165 
230 DATA 168,172,176,180,184,217,321,371,384 

<064> 
DATA 23,28: REM ' INTERRUPT-VEKTOR ' 



<042> 
<223> 
< 2 1 2 > 
<088> 
<086> 
<023> 
<089> 
<002> 
<248> 

'si/ •.»* .•• 

<071> 
<022> 
<182> 



X- '-.' "~J 



cm&as 



iCT ••.. 



REM ********************** 



240 
245 
250 
300 REM ABSOLUTE SPRUNGADRESSEN KORRIGIEREN 



<042> 

•■■ en ~ r '~* '•■- 

< 052 > 



<144> 



305 



310 FOR 1=0 TO 17 

READ A 

X 1=PEEK (SS+A) +PEEK (SS+A+1 ) *256+SS 
X2=INT ( X 1 /256+. 001 ) 
X1=--INTCX1--256*X2+.001) 
POKE A+SS,X1 
POKE A+SS+1 ,X2 
T I 



<108> 
<239> 



315 
320 
325 
330^ 

-_<■_•»_* 

340 






36 e 



345 
350 
355 
360 
5 
370 

-J» / \-J 

380 
385 
390 
395 
400 
405 
410 
415 
420 



425 
430 
43 






500 



U0w 



w.' 



510 



515 



NEX 



READ A1:X1=PEEK(SS+A1) 

READ A2:X1=X1+PEEK(A2)*256+SS 

X2=INT(Xl/256+.001> 

X1=INT(X1-256*X2+.001) 

POKE A1+SS,X1 

POKE A2+SS,X2 

■ 
■ 

REM ********************** 

REM BELEBUNG DER FUNKTIONSTASTEN 

■ 

REM Fl - NEXT STEP 
REM F3 - EDIT-MODE 

REM AKZEPTIERT WERDEN TASTEN 

<236> 
: REM CURSOR-RIGHT, CURSOR-LEFT 
REM F5 a AUSSTIEG 

■ 
■ 

PRINT 

PRINT" CSPACE23STARTCSPACEJMIT5 " 

PR I NT "SYS" ;SS 

END 



0. . .F 



< 06 
<028> 
<254> 
<054> 
<103> 
<072> 
<037> 

< 1 53 > 
<167> 
<042> 
<236> 
<036> 
<134> 

< 1 4 1 > 
<188> 

< 1 78 > 
<198::= 

< 2 1 2 ■> 
<208> 

< 089 > 
<093x 
UND 

<094> 

< 091 > 

••. *_ ■_• O s 

<142> 
<137> 

< 1 88 > 

< 1 33 > 
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in 
Vollendung 

Dieses Verwaltungs- und Sortierpro- 
gramm fur Disketten lafct keine Wiin- 
sche often. Es macht aus Ihrem Disket- 
tendschungel eine iibersichtliche Sa- 
cha So konnen Sie samtliche Eintraae 



Oder 



sortieren 



werden doppelte Eintrage ausgeson- 
dert. Wenn Sie Ihre eigene Liste mit ei- 
ner anderen Liste vergleichen wollen, 
wird registriert, welche Programme in 
Ihrer Liste nicht vorhanden sind. Aber 
das ist noch langst nicht alles. 

In diesem Heft ist die Basic-Version abgedruckt. Das bedeu- 
tet, dafi die Sortierroutine etwas langsam arbeitet. Auf der 
ebenfalls erhaltlichen Diskette zum Heft finden Sie eine compi- 
lierte Version, bei der auch die Sortierroutine in Maschinen- 
sprache geschrieben ist. Diese Version stellt wohl das optimal- 
ste dar. Doch nun zu den Funktionen des Programms. 

Anleitung 

In den Speicher Ihres Commodore C 64 konnen zirka 850 
Programmdaten gespeichert werden. Ein Datensatz besteht 



HsSQK DATEN PER DI 



nza&U DATEN 



EINLESEN 



EI TERN / LGESCHEN 



!I;;;teiSi LISTE EDITIEREN 



i til 



LISTE SDRTIEREN 



;;«li DATEN ABSPEICHERN 



H 



ill 



unKt 



tin I in 
m 



1 1" 



DATEN EINLESEN 



LISTE DRUCKEN 



LISTE AUF SCREEN 



BLOCKS FREE 



■MUSH QUIT 



SPEZ. LISTE 



mir- : ; 



DISK OPER 



DIRECTORY 



ANDERE BILDSCHIRM FARBE 




mmm aussortieren fremder liste 

Bild 1. Nach dem Starten des Programms wird das Haupt 
menu erstellt. Von hier aus sind samtliche Funktionen 
anwahlbar. 
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ELEMENT loebchen 



ELEMENT SUCHErJ 



ELEMENT VERBESSERN 



Hr4SJ£B&i^2LilJsii 



ELEMEt-TT DRUCKEN 



EIN 



i 



v^OR 



20 ELEMENTE VOR 



20 ELEMENTE ZURUECK 



EIN ELEMENT ZURUECK 



DM-LISTE ERBTELLEN 



ELEMENT EINFUEGEN 



Bild 2. Diese Moglichkeiten haben Sie, wenn vom Hauptme- 
nii (siehe Bild 1) »F5 Liste editieren« gewahlt wurde. 



aus dem Programmnamen, der ID-Nummer und der Anzahl der 
belegten Blocks auf Diskette. 

Achtung: Alle Eingaben die nicht mit J/N beantwortet werden 
konnen, mussen mit RETURN abgeschlossen werden. 

F1: Setzt den Datenzahler auf Null, das Erstellen der Liste 
beginnt. Daten werden von Diskette eingelesen. Sie konnen 
wahlen, ob Sie alle Daten einlesen wollen, oder einzelne Daten 
in die Liste von Diskette aufnehmen mochten. Falls Sie mehr 
als eine Diskette einlesen wollen, die Anfrage des Computers 
mit »J« beantworten, sonst erfolgt eine Ruckkehr in das Haupt- 
menu. Wollen Sie in diesem Fall zusatzliche Daten aufnehmen, 
ist die Funktion F3 zu wahlen. 

F3: F1 liest Daten zusatzlich zu vorhandenen Daten ein. Mit 
F3 kann ein schon vorhandenes Datenfile von Diskette zugela- 
den werden. 

Mit F5 konnen alle Daten einer ID-Nummer von einer in den 
Computer eingelesenen Directory geloscht werden. 

Mit F7 kann der gerade im Computer befindliche Standard- 
Druckkopf abgespeichert werden (automatisch unter Stan- 
dardkopf). Der Standardkopf wird sofort nach dem Laden des 
Programms eingelesen und dient dazu, Name, Adresse, Tele- 
fonnummer (oder andere Daten) in Sperrschrift uber die Liste 
zu drucken. 

F5 erlaubt das Editieren von Daten. Daten konnen geloscht, 
verandert, zusatzlich eingef ugt und direkt auf den Drucker aus- 
gegeben werden. Zusatzlich besteht die Moglichkeit in diesem 
Modus, aus einer Programmliste eine Preisliste zu machen. 

F7 sortiert alle Daten alphabetisch oder nach ID-Nummer. 
Danach konnen doppelte Daten aussortiert werden, Eingabe 
der Anzahl zu berucksichtigender Zeichen von links. 

F2 speichert die Daten unter dem eingegebenen Filenamen 
ab. Klammeraffe kann verwendet werden. 

F4 liest ein gespeichertes Datenfile in den Rechner ein, der 
Joker ist erlaubt. 

F6 gibt die Daten auf den Drucker aus. Entweder alle Daten 
in drei Spalten, oder als Liste, dann kann als ID-Code eine ID- 
Nummer eingegeben werden. »Directory wird ausgedruckt« 
auch mit Joker, dann werden zum Beispiel alle Daten deren ID- 
Nummer mit M beginnt nach Eingabe von »M*« ausgedruckt. 
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KOPF MIT DRUCKEN 
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;;. i ■•-';!' •■■:; id : tuiu car- »in::;i L- x >_j i 



NACH KRITERIUM 



SlaMSI BsEK STANDARDKOPF AENDERN 



IBH H^JSM 91481X1:41 




iBITTE FUNKTIOIM WAEHLEN 



i. .. , 



I 



Bild 3. Einige Parameter lassen sich bei einem Ausdruck 
selber bestimmen. So konnen Sie nicht nur eine Pro 
grammliste drucken, sondern auch eine Preisliste. Sie be- 
stimmen, wieviel Zeilen pro Seite und ob der Standardkopf 
mit ausgedruckt werden soil. 



F8 gibt die Daten auf den Biidschirm aus. 

E Farbwechsel von Biidschirm und Schrift. 

& alle Diskettenoperationen sind moglich. 

./. Spezielle Listen konnen erstellt werden nach dem ersten 
Zeichen der ID-Nummer (zum Beispiel nach Eingabe von M 
werden alle Daten deren ID-Nummer mit M beginnt auf ein Da- 
tenfile geschrieben. 

$ Zeigt die Directory einer Diskette auf dem Biidschirm. 

! Erlaubt das Aussortieren fremder Listen wenn die eigene 
Liste in den Computer geladen wurde. Es werden alle Daten, 
die in der fremden Liste sind, mit den eigenen nach Kriterium 
(Anzahl Zeichen von links) durchsucht. Ein in der eigenen Liste 
nicht vorhandener Datensatz wird dann auf ein Differenzfile 

abgelegt. 

(B. Winkler / gk) 



<185> 
<081> 

<202> 

<101> 

<209> 

<121> 

<1B1> 

<141> 

<063> 

<161> 

<029> 

<097> 

<107> 



Bild 4. Ein kleines Beispiel einer Programmliste. Hier sind 
lediglich zwei Disketteninhalte in unsortierter Form zu se- , 
hen. Der Kopf kann natiirlich weggelassen oder auch gean 
dert werden. 

PRG.NAME 

* t« ■ ••(*««■••«••■•• I IIMIHIIIMI1M tlllllll«MIIHIMINMHtH>tN«lim HIIIHtlWI«IH1»IfM»IHHI» •t-"«t» 

DISKSORTER LADER 
SUPERSORT 
DISKSORTER 
STANDARDKOPF 
DATA ERZEUGER 

1 

M-P-S 

ESF EDIT SEQ FIL 

CHECKSUMMER 64 

CHECKSUMMER VC20 

AUTQSTART-64 

AS. ASSEMBLER 

AUTO 

TOOL-KIT/KUNZ 

HAAS 

LADER 

DATE I -ORGAN I SAT I 

DISK-MASTER/M 



100 REM ♦*#***♦*♦*#»»#**#***#*# 

110 REM ♦ * 

120 REM * PR06RAMM DISKSORTER * 

130 REM * ♦ 

140 REM * BERNHARD WINKLER * 

150 REM * » 

160 REM * BIESSENERSTR.42 * 

170 REM * * 

180 REM * 5000 KOELN 91 * 

190 REM * * 

200 REM *********************** 

210 REM 

220 REM 

230 PRINT" CCLEAR,DOWN f WHITE3":POKE 532B0,0 

:POKE 53281,0 
240 PR I NT " gflCSPACE2 3&&&CSP ACE 3&&&CSP ACE 3flCSPACE 3 

Q rSPACE USOfiC SPACE 3&&&CSPACE 3&&flCSPACE 3 .QAQ. 

CSPACE laaaCSPACE ISMS." < 1 69 > 

250 PRINT"fiCSPACE3.&CSPACE2 3 1 fiCSPACE23fiCSPACE3 3S 1 

CSPACE 3fiCSPACE 3flCSPACE3 3.&CSPACE 3&CSPACE 3fi 
CSPACE 3fiCSPACE2 3fiCSPACE2 3flCSPACE3 IflCSPACE 3&" 

<022> 
260 PRINT"fiCSPACE3.aCSPACE2 3.&CSPACE23aft&CSPACE3 

aacsPACE2 DaaacsPACE 3scspace 3scspace iba 

CSP ACE3 3SCSPACE2 3&&CSPACE2 3SSCSPACE 3 " < 054 > 

270 PRINT ,, fiCSPACE3.&CSPACE23flCSPACE43&CSPACE3fi 
CSPACE 3fiCSPACE3 3SCSPACE 3&CSPACE 3&CSPACE 3fl 
CSPACE 3ACSPACE2 3flCSPACE2 3SCSPACE3 3&CSPACE 1ST 

<043> 



<203> 



BILDSPEICHER 
OHNE REM 

RUSSEL 

TASTENDRUCK 

DREUW 

MOUSE 64 



ID 


BL. 

....-._.. II |M 

3 


PRG.NAME 


ID 


BL. 


BG 


ROTH 


BG 


1 


BG 


5 . 


TASTATURPIEPS 


BG 


3 


BG 


57 


— FOERTSCH — 


BG 


1 


BG 


1 


EI GENES BASIC 


BG 


44 


BG 


15 


SCHULZ 


BG 


1 


BG 


1 


AUTONUM 64 


BG 


6 


BG 


19 


SUPER LINE 


BG 


15 


BG 


21 


SUPER LINE DEMO 


BG 


v 3 


BG 


6 


ZE I CHEN-ED I TOR 


BG 


18 


BG 


7 


EDITOR 


BG 


"TO 


BG 


6 


DELETE 


BG 


O 


BG 


10 


TRACK 18 


BG 


41 


EG 


6 


HILFSRQUTINEN 


BG 


82 


BG 


40 


HARDCOPY 


BG 


JL 


BG 


1 


D I S ASSEMBLER 


BG 


16 


BG 


1 


SINGLE STEP 


BG 


12 


BG 


57 


LADER VC 20 


BG 


4 


BG 


7 


LADER C 64 


BG 


4 


BG 


1 


VERSCHIEBER 


BG 


14 


BG 


14 


MINI GBASIC 


BG 


34 


BG 


14 


■ 


00 


-> 

m 


BG 


1 


EDITOR 


00 


20 


BG 


12 


KREUZWQRTRAETSE 


00 


44 


BG 


1 


SUCH . LADER 


00 


16 


BG 


10 




00 


2 



PRG . NAME 



ID BL 
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3D-VIERGEWINNT 
AUTO/SIEDEL 

DEMO KUHN 

DEMQ1 

DEM02 

FAST TAPE 

HEX-DATA-AUTOMAT 

HI 

HIRES-3/1-TEST 
HIRES3.B. LADER 
HIRESMASCH 

HIX 

LISTSCHUTZ/GAIS 

MERGE/FLEIG 

PET-SIMULATOR 

SIMONS-AXO 

SMON TEIL2.LADER 

STRINGY 

AHLBORN/SYNTHES I 

AHLBORN/SAVEROUT 

TRACE ASSEMBLE 

DTRACE-OBJ 

DTRACE.BOBJ 

MATHE BASIC VC20 



00 


28 


00 


5 


00 


1 


00 


2 


00 


• 

--* 


00 


11 


00 


7 


00 


1 


00 


11 


00 


93 


00 


17 


00 


1 


00 


7 


00 


8 


00 


4 


00 


28 


00 


13 


00 


34 


00 


26 


00 


2 


00 


36 


00 


10 


00 


10 


00 


53 




37 



Disksorter 



C64 



280 PR I NT " SSCSPACE2 3S.&SCSPACE 3fl&SCSPACE 3SCSPACE 3 
&CSPACE 3&&&CSP ACE 3£g&CSPACE 3fiCSPACE 3£CSPACE2 3 
flCSPACE2 3&&SCSPACE 3fiCSPACE 3fi" < 1 42 > 

290 PR I NT " CDOWN4 , R I GHT2 3B I TTE CSPACE 3TASTE CSPACE 3 
DRUECKEN ! " : BOSUB 11000 <162> 

300 REM **♦ VARIABLEN-DEFINITION *** <09S> 

310 REM <19B> 

320 5*=" CDOWN,RIGHT5 3":POKE 53280,0: POKE 53281,0 
: PR I NT ■ CGREEN 3 " < 228 > 

340 BF$=" BLOCKS C SPACE 3FREE" :EZ*=" CSPACE 3ELEMENT " 
:EX*=" CSPACE 3N I CHT" <059>- 

350 V*= " CCLEAR , DOWN2 , RIGHT2 , RVSON , SPACE 3 " 

: M*= " CD0WN2 , R I GHT3 3 " : X*= " CD0WN2 , R I GHT2 , RVSON , 

SPACE 3 " : N$= " C DOWN , R I GHT , RVSON , SPACE 3 " 

: ZM$= " CRVSON , SPACE 3+CSPACE , RVOFF , SPACE , RVSON , 



<108> 
<147> 
<002> 
<140> 
<022> 
<248> 



SPACE2 3ZUM CSPACE 3MENUE CSPACE 3 " 
360 FI$="STANDARDKOPF" 
370 REM 

380 REM *#♦ STANDARDKOF EINLESEN *** 
390 REM 

400 OPEN 7,8,7,FI*+",S,R" 
410 I NPUT#7 , BN* , BA* , BW* , BT* : CLOSE 7 

:PRINT X*; "DATUM CSPACE 3?";: BOSUB 18000:DA*=K* 

<112> 
420 DIM B*<850) ,FF$( 200) : OPEN 3,8,15 
430 REM 

440 REM *** MENUE *** 

450 N*= " CDOWN , R I GHT , RVSON , SPACE 3 " 

460 ZK$="CSPACE26 3 M 



<064> 
<062> 
<190> 
<107> 
<140> 



470 PRINT N$; "CCLEAR, R I GHT, SPACE 3(C) 19B3CSP ACE, 
RVOFF , SPACE 3B Y CSPACE 3B - W I NKLER CSPACE 3 
TEL (0221) 881373" <108> 

480 PRINT N* ;"F1 CSPACE, RVOFF, SPACE 3DATEN CSPACE 3 
PER CSPACE 3DISK CSPACE 3EINLESEN" <069> 

490 PRINT N*; "F3 CSPACE, RVOFF, SPACE 3DATEN CSPACE 3 
ERWE I TERN CSPACE 3/ CSPACE 3LOESCHEN CSPACE 3 " 

<033> 

500 PRINT N$; "F5 CSPACE, RVOFF, SPACE 3L I STE CSPACE 3 
EDITIEREN" <166> 

510 PR I NT N* ; " F7 CSPACE , RVOFF , SPACE 3L I STE CSPACE 3 
SORTIEREN" <212> 

520 PRINT N$; "F2 CSPACE, RVOFF, SPACE 3DATEN CSPACE 3 
ABSPEICHERN" <046> 

530 PRINT N$; "F4 CSPACE, RVOFF, SP ACE 3DATEN CSPACE 3 
E I NLESEN CSPACE4 , RVSON , SPACE 3CLR CSPACE , RVOFF , 
SPACE 3QU IT" <049> 

540 PRINT N$; "F6CSPACE, RVOFF, SPACE 3LISTE CSPACE 3 
DRUCKEN CSPACE5 , RVSON , SPACE 3% CSPACE , RVOFF , 
SPACE 3SPEZ-LISTE" <253> 

550 PRINT N*; "F8 CSPACE, RVOFF, SPACE 3L I STE CSPACE 3 
AUF CSPACE 3SCREEN CSPACE2 , RVSON , SPACE 3& CSPACE , 
RVOFF, SPACE 3D I SK CSPACE 30PER. " <056> 

560 PR I NT N* ; " * CSP ACE2 , RVOFF , SPACE 3 " ; BF* ; " 
CSPACE7 , RVSON , SPACE 3* CSPACE , RVOFF , SPACE 3 
D I RECTORY CSPACE 3 " " < 1 25 > 

570 PRINT N*; " £ CSPACE2 , RVOFF , SPACE 3ANDERE CSPACE 3 
B I LDSCH I RM CSPACE 3FARBE " < 1 64 > 

580 PRINT N*;"! CSPACE2, RVOFF, SPACE 3 AUSSORTIEREN 

<173> 
<207> 



600 

610 
620 
630 

640 
650 
660 

670 
680 
690 
700 
710 



<032> 
<180> 

<144> 



C SPACE 3FREMDER CSPACE 3L I STE CSPACE 3 " 
GOSUB 11000 
IF A*=CHR*( 133) THEN I=0:BB=B: B=0:Q=0 

: GOSUB 1000: IF A*="«-"THEN B=BB 
IF A*=CHR*( 138) THEN GOSUB 6000 
IF A*=CHR*(37)THEN GOSUB 8200 
IF A*=CHR$( 135) THEN OPEN 4, 4: GOSUB 7000 

: CLOSE 4 <065> 

IF A*=CHR*(38)THEN BOSUB 6300 <164> 

IF A*=CHR$(33)THEN GOSUB 14000 <213> 

I F A*=CHR* ( 36 ) THEN B=B+2 : I =B : H= 1 s GT= 1 : G=0 

: GOSUB 1050:H=0:B=B-2:GT=0 <094> 



IF A*=CHR*( 136) THEN GOSUB 4000 
IF A*=CHR*( 147) THEN SYS 64738 
IF A*=CHR*( 137) THEN GOSUB 5000 
IF A$=CHR$( 134) THEN GOSUB 9000 



<236> 
<081> 
<002> 
<013> 



IF A*=CHR*( 139) THEN OPEN 4, 4: GOSUB 3000 
: CLOSE 4 <145> 

720 IF A*=CHR*( 140) THEN GOSUB 8000 <029> 

7Z2 IF A*=CHR*(92)THEN GOSUB 2000 <247> 

740 IF A*=CHR*(42)THEN BB=Bs GOSUB 12000: B=BB 

<145> 
750 GOTO 450 <018> 

760 REM <137> 

1000 REM <122> 

1010 REM »** DISKLESER ♦♦* <038> 

1020 REM <142> 

1 030 G=0 : PR I NT V* ; " D I SK CSPACE 3E I NLEGEN CSPACE 3 



: CSPACE 3DATEN CSPACE 3KOMPLETT CSPACE 3 " 

:PRINT X*; "ODER CSPACE 3EINZELNCSP ACE 3"; <207> 
1035 PRINT"EINLESENCSPACE3?CSPACE3(K/E) " 

: PRINT X$;ZM*: GOSUB 10000s IF A*="E"THEN G=l 

<209> 
1040 IF A*="«-"THEN RETURN <142> 

1050 PRINT V*; " ICH CSPACE 3LESE CSPACE 3D I SK CSPACE 3" 

: PRINT X*; <09B> 

1060 OPEN 1,8,0, "*0" :GB=1 <034> 

1070 GOSUB 16000:PRINT"CSPACE,RVSON3"K*"CDOWN23 ,, 

:IF TO0 THEN GOSUB 10000: CLOSE 1: RETURN 

<089> 
1080 GET#1,A*,F* <088> 

1090 6ET#1,A*,F*:B*<I+1)="" <109> 

1100 GET#1,A*,F* <108> 

1110 C=0:L$="CSPACE33" <031> 

1120 IF A*<>""THEN C=ASC(A*) <020> 

1130 IF F*<> ,,H THEN C=C+ASC (FS) *256 <094> 

1140 Q*=MID*<STR*(C) ,2) : L*=LEFT*(Q*+L*,3) <211> 

1150 GET#1,F*:IF F*= ,,,, THEN PRINT" CDOWN, RIGHT2, 

RVSON3";L*; " CSPACE 3"; BF*: GOTO 1295 <1B4> 
1160 IF F*OCHR*(34)THEN 1150 <210> 

1170 GET«l,F*sIF F*OCHR* ( 34 ) THEN B* ( I+Q)=B$ ( 1 + 
Q)+F*:GOTO 1170 <034> 



1180 
1190 
1200 
1210 
1220 
1230 



<215> 
<005> 
<017> 
<089> 
<209> 



IF Q=l THEN B*(I+1)="" 
GET#1,F*:IF F*=CHR* (32) THEN 1190 
C*= M " 

C*=C*+F* : GET# 1 , F* : I F F*< > " " THEN 1210 
IF GB=1 THEN GB$=C*:GB=0 

B$ ( I+Q) =LEFT* (B* ( I+Q) +ZK$ , 17) +LEFT* (GB* , 
)+RIGHT*(ZK$+Q$,3) <116> 

1240 PRINT" CRIGHT23";B*( I+Q);" CRIGHT33"; "CRVSON, 
SPACE 3"; LEFT* (C$, 5) ; : IF G=0 AND GT=0 THEN PR 
INT <065> 

1250 IF GT=1 THEN GT=0: B* ( I ) = "": PRINT: GOTO 1090 

<163> 
1260 IF Q=l THEN Q=0:B$(I+1)="" <148> 

1270 IF G=l AND GT=0 AND I >0 THEN PRINT" CRVOFF, 
SPACE3J/NCLEFT33"; : GOSUB 11000 
:IF A$="N"THEN PRINT"NEIN M ; : GT=1 sGOTO 1250 

<246> 

1280 1=1+1: IF G=l THEN PRINT" CRVOFF, SPACE 3 J A" 

<180> 
1285 IF I+Q+l=850 THEN PRINT X*; "SPE I CHER CSPACE 3 
ISTCSPACE3VOLL":PRINT X*;ZM*: CLOSE 1 
: GOSUB 11 000: RETURN <159> 

1290 GOTO 1090 <098> 

1295 CLOSE Is IF H=l THEN GOSUB 10000: RETURN 

<194> 
1300 PRINT X*;"NOCHCSPACE3EINECSPACE3DISKCSPACE3 
(J/N)" <057> 

1310 QW*=STR$(I-1) <219> 

1320 PRINT X$; "BISHER CSPACE 3WURDEN CSPACE 3" ;QW*; 
" CSPACE 3DATEN CSPACE 3GELESEN CSPACE , D0WN4 3 " 

<140> 
1330 GOSUB 11000 <182> 

1340 IF A$="J"THEN GT=1:PRINT V$;:GOTO 1060 

<16B> 
1350 IF A*<>"N"THEN 1330 <159> 

1360 B=I-1: CLOSE 1 <121> 

1370 A*="":T=0 <042> 

1380 RETURN <247> 

2000 REM <102> 

2010 REM *** FARBWECHSEL *** <146> 

2020 REM <122> 

2030 I=0:F=0:J=0 <232> 

2040 PRINT V*; "Fl CRVOFF, SPACE, RVSON 3FARBWECHSEL 

CSPACE 3BILDSCHIRM" <179> 

2050 PRINT X*; "F3 CRVOFF, SPACE, RVSON 3FARBWECHSEL 

CSPACE 3H I NTERGRUND" <043> 

2060 PRINT X*; "F5 CRVOFF, SPACE, RVSON 3FARBWECHSEL 

CSPACE3SCHRIFT" <000> 

2070 PRINT X*;ZM$ <057> 

2080 GOSUB 11000 <135> 

IF A*=CHR*( 133) THEN 1=1+1: POKE 53280,1 

<145> 
IF A*=CHR*( 134) THEN J=J+l:POKE 53281, J 

<160> 
IF A$=CHR$( 135) THEN F=F+l:POKE 646, F 
IF A$="+"THEN RETURN 
GOTO 2040 
3000 REM 

3010 REM *** DRUCKER AUSGABE *-** 
3020 ZK$=LEFT$(ZK$+ZK$,33) 
3030 J*=" CRVSON, SPACE 3 JA CSPACE 3" 

: N$=" CRVSON 3NEIN" : F1$=N*: F3*=J*: F5$=J*: F7*=N* 



2090 

2100 

2110 
2120 
2130 



<060> 
<202> 
<169> 
<082> 
<096> 
<057> 
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<I20> *1S-*Z lNIdd=!X3N= 

S..CNM0<I3„lNIdd:6I 01 I=P dOd = ..C3WOH3 ..INIdd 0IS2 
<I£0> NdR13d 00S2 

<Z60> 
*>l=*ias0IS2 8nS09 s ..6C33ydS3N0d3131..=*lS 06V2 

<9ZI> 



<II0> 
<Z2Z> 
<SV0> 

<ez0> 



0922 



*>l=*Mas0IS2 anS09 = ..<i.C33ydS31dONHOM..=$lS 08V2 

<9Z0> 

*>«=*yas0is2 anso9 = ..^c33ydS3 -dN'sssydiSn^^is 0ZV2 

<I80> *>l=*Nas0IS2 anS09 = „cC33ydS33WyN..=*lS 09V2 

<0Si> *>i=*ya20is2 anso9s.. < LC33ydS3wniya..=*is 0SV2 

Ndni3d 0VV2 

Ndni3d N3Hl..+ ..=*y dl 02V2 

06S2 N3Hl*N=$2d dl 0ZV2 

02S2 N3Hl*r=*2d dl 0IV2 
<Z6I> 

Ndni3d N3Hl*N=*Zd (INy*N=$Sd aNy$N=*Zd dl G0V2 

<82Z> 

0622 N3Hi 002<za do si>za dl = <$>0 HUA=Za = 

00081 anS09= -*A-..CZdn3..1NIdd=*>iZS$A INIdd 00 V2 
<S2I> „SI=<£,C33ydS331I3SC33ydS30dd 

C33ydS3N3-|I3ZC33ydS3H3IA3IM.. S*Z lNIdd51X3N = 
S..CNM0a3 .. INIdd =61 01 I=P dOd 5 ..C3WOH3 ..INIdd 0622 
<90T> Ndni3d N3Hl..r..O*y dl = 

000i i ansogs$xz-$A iNidd S822 

<80I> .. <N/r)C33ydS3<L 

C33yd53>IO.. -$Z-..Cdn3..1NIdd = *>lZ UZ INIdd =1X3N = 
!..CNMOa3..1NIdd:6I 01 I=P dOd = ..C3WOH3 ..INIdd 0822 

<VZ0> 
0SZ2 N3HKZ2I)*dH3<*y dO <S6) *dH3>*tf dl 0Z22 

<IBI> 
0Z02 0109!I=3s*r=*Vd N3H1 ( 82 I ) *dH3=$tf dl 
<0S0> Ndni3d=0=da N3HKS6)*dH3=*tf dl 

<S0Z> 0Z02 0109= 

*N=*zd N3Hi*r=*zd aNy(Z2i)*dH3=*y di 0V22 

<I6I> 0Z02 0109:*N=*5dS 

*N=*Zd=*r=*Zd N3Hl*N=*Zd (INtf < Z2 I ) *dH3=*tf dl 0222 
<V8I> 0Z02 0109=$N=*Sd! 

*N=^Zd=*r=*Zd N3Hl*N=*Zd aNy<92I)*dH3=*y dl 0Z22 
<T£BI> 0Z02 0109 = 

*N=*Zd N3Hl*r=*Zd aNy(92I)*dH3=*y dl 0122 
<89I> 0Z02 0109= 

*N=$Sd N3Hl$r=*Sd ONV ( S2 I ) *dH3=*y dl 0022 
<ISl> 0Z02 0109:$N=$Zd= 

$N=$Zd=$r=$S-d N3Hl*N=*Sd ONV <S2I)*dH3=*y dl 06Z2 
<2VI> 0Z02 0109= 

*r=*2d N3Hl*N=*2d (INtf ( V2 1 ) $dH3=*U dl 08Z2 
<22I> 0Z02 0109= 

*N=*2d N3Hl*r=*2d aNV < V2 I ) *dH3=*y dl 0ZZ2 
<8II> 0Z02 0109= 

*f=*Id N3Hl*N=*Id ONV < 22 I ) *dH3=*y dl 09Z2 
<I90> 000 I I 80S09 0SZ2 

<02I> 
0Z02 0109=0822 anS09=$N=$Id N3Hl*r=*Id dl 0VZ2 

<Z90> 
0Z02 OlO9=*N=$:Vd:0SV2 anSO9=0=3 N3H1 1=3 d I 02Z2 
<V9I> *Ny-$A INIdd 0ZZ2 

<960> *1S-UZ INIdd =1X3N = 

-..CNMOa3..1NIdd=0Z 01 I=r dOd= -..C3WOH3 ..INIdd 0IZ2 
<2II> 



*^-*-*"*-**-***^^^^^^ V33ydS3 .. IN I dd 00Z2 

<26I> ffC2233ydS3ffCV33ydS3 ..I NIdd 612 

<TB0> fi*"*"*-*** 

^VV»V*V*V*V*V*V*V*V^^ V33ydS3 .. IN I dd 0812 

<2ZT> fi , C2233ydS35'CV33ydS3 ..INIdd 0ZI2 

<I90> 



V*V*V*V*V#V*V*V»V*V*V*V****J* C V33ydS3 .. IN I dd 0912 
<680> ..CZNM0a3..1NIdd 0ST2 

<920> *WZ-..CZld3n3« -*X INIdd 0VI2 

< ZS0 > ..[ 33ydS3 Nd3dN3y C 33 VdS 3 ddo^ady aNy IS 

C33ydS*ddOAd i 33ydB3Vd.. UlUW INIdd 0212 

<TZ0> 
.. C NMOa ' 33ydS3 Wn I d31 1 d»C 33ydS3 H3VNC 3 3y dS 3 
31SIlC33ydS*ddOAd*33ydS32dM-*lUZd INIdd 0ZI2 

< I SZ > .. C NMOa ' 33y dS 3 N3>«3ndaC 33ydS3 31S n-S 1 3dd 

C 33V dS * ddOAd * 33y dS 3 Zd .. • *1 ■ *Zd IN I dd 1 1 2 

<Z0Z> 

m c nmoq 4 3ay dS3 N3>t3naa c 33yds 3 31s 1 n-wwy ygoy d 

C 33ydS 4 ddOAd * 33ydS3 Sd „ Ul =* $5d IN I dd 00 1 2 
<ZII> ..CNMOa 

4 33ydS3 N3>i3ndac 33ydS3 1 1 wc 33ydS3 ddo>< " aNy is 

C33ydS t dd0Ad*33ydS32d« Ul-$£d INIdd 0602 

< Z2Z > .. c NMoa 4 3oy ds i nn 1 93a->anda 

C33ydS'ddOAd*33ydS3Id.. UlUld INIdd 0802 

< 6S0 > .. c NMoa ' 33ydS3 3ay9sny c 33ydS3 

d3>«3ndaC 33ydS ' NOSAd 4 S1H9 1 d * dy3~I33 .. IN I dd SZ02 
<!£!> „N3-|H3yM 

1 33y dS3 NO I l^NfldC 33ydS3 311 1 8 .. =*Ny = .. .. =*1S 0Z02 
<9SI> „C33ydS'N0SAd 4 lH9Id3..=*l 0902 

<Z2I> W3d 0S02 

<0Z0> I=da=*N=*Vd=*Z+..CNM0<I3..=*A 0V02 

<SZZ> ..CSlH9Id3..=*Z=*N=*Zd = 



t 



J91JOS>|S!a 



V9 



Disksorter 



C64 



■ 










<240> 
<183> 
<103> 
<032> 
<066> 
<106> 
<0B5> 
<084> 
<214> 
<116> 
<042> 
<093> 
<062> 

<175> 



II 



<154> 
<047> 



10000: RETURN 



BERUECKSICHTIGENCSPACE3?": PRINT X*; 

: GOSUB 18000 <148> 

4210 SS=VAL<K*>: IF SS=0 OR SS>25 THEN SS=25 

<128> 
4220 IF LEFT*<B*(J> ,SS)=LEFT* (B* < J+l ) , 

SS)THEN 4270 
4230 J=J + 1 

4240 IF J<=B-1 THEN 4220 
4250 FOR I=B+1 TO B+10sB* (I > =" "sNEXT 
4260 RETURN 
4270 FOR I=J TO B 
4280 B*<I)=B*<I+1) 
4290 NEXT 

4300 J=J-l:B=B-l:BOTO 4230 
4310 RETURN 
5000 REM 

5010 REM *** DATEN FILE SPEICHERN *** 
5020 REM 
5030 PRINT V*; "DATEN CSPACE 3 WERDEN CSPACE 3 

GESPE I CHERT CSPACE 3 " 
5040 GOSUB 17000s 1=0: PRINT X*; " SI CHER CSPACE 3? 

CSPACE 3 < J /N > " s GOSUB 1 1 000 

sIF A$<>"J"THEN RETURN 
5050 OPEN 2,8,2,FI*+",S,W 
5060 GOSUB 16000: PRINT X$;K* 

:IF TO0 THEN CLOSE 2: GOSUB 

<250> 
5070 PRINT#2,B 
5080 IF G=l THEN FOR 1=1 TO Z:PRINT#2,FF* (I) 

sGOTO 5100 <245> 

5090 FOR 1=1 TO B:PRINT#2,B*(I) <184> 

5100 NEXT <129> 

5110 CLOSE 2 <219> 

5120 RETURN <162> 

6000 REM <022> 

6010 REM *** DAf EN-FILE EINLESEN *** <040> 
6020 REM <042> 

6030 PRINT V*;"DATEN CSPACE 3WERDEN CSPACE 3GELESEN 

CSPACE 3" sPRINT X*;ZM* <192> 

6040 GOSUB 17000: IF K*="«-"THEN RETURN <242> 
6050 PRINT X*;"DATENCSPACE3FILECSPACE3";FI*" 

CSPACE3EINLESENCSPACE3<J/N* CSPACE}" <11B> 
6060 GOSUB 11000 <066> 

6070 IF A*<>"J"THEN RETURN <228> 

6080 OPEN 2,8,2,FI*+ ,, ,S,R":PRINT"CDQWN2,RIGHT33 

"; <255> 

6090 GOSUB 16000; PRINT" CSPACE,RVSON2"K$" CDOWN23" 

sIF TO0 THEN GOSUB 10000 2 CLOSE 2: RETURN 

<009> 
6100 INPUT#2,B <015> 

6110 FOR I=FJ+1 TO B+FJ <252> 

6120 INPUT#2,B*(I):NEXT:CL0SE 2: B=B+FJ: RETURN 

<027> 
6300 PRINT V$;"DISKCSPACE30PERATIONCSPACE3MODE" 

<071> 

6310 PRINT X$; "DI SKETTENBEFEHLE CSPACE 3S, CSPACE 3 

V, CSPACE3N,CSPACE3R,CSPACE3ICSPACE3" <042> 
6320 PRINT X*; " BEFEHL CSPACE 3?" ;: GOSUB 18000 
:FI*=K*s PRINT X*; "AUSFUEHREN CSPACE 3 (J/N > 
CSPACE 3?" <101> 

6325 GOSUB 11000 <076> 

6330 IF A*="«-"THEN RETURN <076> 

6340 IF A*="J"THEN OPEN 15,8, 15s PRINT#15,FI* 

: CLOSE 15s GOSUB 16000: IF TO0 THEN PRINT X*; 
K$: GOSUB 10000 <142> 

6345 IF T=0 THEN RETURN <215> 

6350 PRINT" CHOME 3" ; X*: GOTO 6310 <026> 

7000 REM <002> 

7010 REM **# EDITOR **# <207> 

7020 REM <022> 

7030 POKE 650,128 <138> 

7040 PRINT S$; " CCLEAR,RIGHT5,RVSON,SPACE3© 

CSPACE , RVOFF , SPACE2 3 : CSPACE2 3ELEMENT CSPACE 3 
LOESCHEN" <199> 

7050 PRINT S*; "CRVSON, SPACE 3 £ CSPACE, RVOFF, 

SPACE23: CSPACE2 3ELEMENT CSPACE 3SUCHEN" <062> 
7060 PRINT S$; "CRVSON, SPACE 3* CSPACE, RVOFF, 
SPACE2 3 s CSPACE2 3ELEMENT CSPACE 3VERBESSERN" 

<079> 
7070 PRINT S*;" CRVSON, SPACE 3 4- CSPACE, RVOFF, 

SPACE235 CSPACE23";RIGHT$(ZM*,13> <053> 

7080 PRINT S$;" CRVSON, SPACE 3P CSPACE, RVOFF, 

SPACE2 3 s CSPACE2 3ELEMENT CSPACE 3DRUCKEN CSPACE 3 " 

<150> 
7090 PRINT S*s" CRVSON, SPACE3, RVOFF, SPACE2 3 

: CSPACE23EINCSPACE3ELEMENTCSPACE3VOR" <023> 
7100 PRINT S$; "CRVSON, SPACE3F1 CRVOFF,SPACE2 3 



II 



<039> 
<146> 

<011> 
<146> 
<002> 



s CSPACE2 320 CSPACE 3ELEMENTE CSPACE 3VOR CSPACE 3 " 

<099> 
7110 PR I NT S* ; " CRVSON , SPACE 3F3 CRVOFF , SPACE2 3 

: CSP ACE2 320 CSPACE 3ELEMENTE CSPACE 3 ZURUECK " 

<161> 
7120 PRINT S*; "CRVSON, SPACE 3 t CSPACE, RVOFF, 

SPACE2 3 s CSPACE2 3E I N CSPACE 3ELEMENT CSPACE 3 

ZURUECK" <197> 

7130 PRINT S*;" CRVSON, SPACE 3* CSPACE, RVOFF, 

SPACE2 3 s CSPACE2 3DM-L ISTE CSPACE 3ERSTELLEN" 

<115> 
7135 PRINT S$;" CRVSON, SPACE 3+ CSPACE, RVOFF, 

SPACE2 3 s CSPACE2 3ELEMENT CSPACE 3E I NFUEGEN 

C DO WN2 , SPACE 3 ": PR I NT 
7140 FOR 1=1 TO B 
7150 PRINT" CUP, RI6HT33";ZK*:"CDOWN3 

: PRINT" CRIGHT3,SPACE23" ; B* ( I ) 
7160 GOSUB 11000 

7170 IF B*<1)=""AND B>1 THEN A*="@":I=1 
7180 IF A*="@"AND B>1 THEN B*< I ) =BS (B) s B=B-1 

:A*=»" < 084> 

7190 IF A*=CHR*(133)AND I+20<B THEN 1=1+20 < 1 15> 
7200 IF A$=CHR*(134)AND I-20>0 THEN 1=1-20 <076> 
7210 IF A$="*"THEN PRINT" CUP2,RIGHT53"; " CRVSON3 

KORREKTURELEMENT " s I NPUT " CR I GHT3 3 " ; B* < I ) < 1 34 > 
7220 IF A*="*"THEN PRINT" CUP23"; ZK*s PRINT 

:IF B$<I)=""THEN B$ ( I )="ZZZZ" <157> 

7225 IF A$="*"THEN GOSUB 7500s GOTO 7000 <233> 
7230 IF A*="«-"THEN A*="":POKE 650, 0s RETURN <049> 
7240 IF A*="T"THEN 1=1-2: IF Kl THEN I=B-1 <034> 
7250 IF A*="+"THEN B=B+1 : PRINT" CRVSON, UP2, 
R IGHT5 3NEUES CSPACE 3ELEMENT" 

: INPUT"CRIGHT33";B$(B) : PRINT" CUP2 3"; ZK*: PRINT 

<059> 
7260 IF A*="P"THEN PRINT#4, " CSPACE4 3";B* C I ) 

<204> 
7270 IF A*="f"THEN PRINT V*; "NACH CSPACE 3 WELCHEM 
CSPACE 3ELEMENT CSPACE 3SUCHEN CSPACE 3? " 
:PRINT X$;:GOSUB 18000:GOSUB 7310sGOTO 7000 

<145> 
7280 IF LEFT$(B$(B),4)="ZZZZ"AND I>1 THEN B=B-1 

<122> 
7290 PRINT"CUP3,RIGHT33":ZK*sNEXTsGOTO 7140 

<204> 



<046> 
<207> 
<119> 
<086> 



<101> 
<103> 



7360 

7370 
7380 



7300 RETURN 

7310 IF K*=""THEN RETURN 

F=0:IF RIGHT* (K*,1)="«"THEN F=l 
Q=LEN <K*> -F: Q*=LEFT* <K* ,Q> : EZ=0 
7340 EE*=" CSPACE 3KE IN CSPACE 3WE I TERES" 
- EY*= " CSPACE 3 VORHANDEN CSPACE 3 " s PR INT 
FOR K=l TO B 
IF LEFT*CB*(K) ,Q>=Q*THEN EZ=1 s SE=lsR=l 

<115> 
IF SE=0 THEN NEXT <020> 

IF SE=1 THEN PRINT" CRIGHTB3"; B* <K) :SE=0 
:NEXT <015> 

7390 IF EZ=0 THEN PRINT" CRIGHT2,DOWN,RVSON3" ; 

EZ*+EX*+EY* < 1 88 > 

7400 IF EZ=1 THEN PRINT" CDOWN2 3" 

: PRINT" CRIGHT2 ,RVSON3" ; EE*+EZ*+EY* 
:PRINT"CRIGHT2 3"5WS* <054> 

7410 PRINT X$;ZM*: GOSUB 11000 <226> 

7420 RETURN <166> 

7500 PR I NT " CCLE AR , D0WN2 , R I GHT2 , RVSON , SPACE 3 
DM-L I STENERSTELLUNG CSPACE , RVOFF , D0WN2 3 " 
: PRINT" CDOWN2 3" ; X*; ZM*s PRINT" CHOME,DOWN53" 

<002> 
7510 FOR J=I TO B:PRINT"CSPACE23"; 

sC*=LEFT*CB*<J) ,17) s PRINT C*s <231> 

7520 F*=RIGHT$<ZK*+STR$<INT(VAL<RIGHT*<B$<J> , 

3>>/4+.5>> ,2>sPRINT F*s <149> 

7530 PRINT" CSPACE 3000 CLEFT3 3" ;s GOSUB 18000 

sIF K*="«-"THEN RETURN 
7540 B*(J)=C*+F*+" CSPACE3"+LEFT*(K*+ZK*,3> 
7550 PRINT"CUP3";sNEXTsRETURN 
8000 REM 
8010 REM *♦* BILDSCHIRM-AUSGABE *** 

8020 REM 

8030 PRINT V*s" I NHALT CSPACE 3EINER CSPACE 3D ISK 
CSPACE3LISTENCSPACE3":PRINT X*; "ODERCSPACE3 
ALLE CSPACE 3D I SK CSPACE 3DATEN CSPACE 3L I STEN 
CSPACE 3 (E/A) CSPACE 3" <190> 

8040 GOSUB 11000 <006> 

8050 s IF A*="E"THEN 8120 <104> 

8060 PRINT V*;ZM$: PRINT: Z=l <254> 

B070 FOR 1=1 TO B:Z=Z+1 <179> 



<132> 
<177> 
<200> 
<238> 
<250> 
<002> 



* 






40 




+ 



8080 PRINT" [RIGHT83";B*(I): IF PEEK (631) =95 THEN 

POKE 198,0: RETURN <069> 

8090 IF Z=23 THEN GOSUB 11000:Z=1 

:IF H=l THEN RETURN <119> 

,8100 NEXT: GOSUB 10000 <253> 

8110 RETURN <091> 

8120 PRINT V*;"WELCHE[SPACE3DISK[SPACE3LISTEN 
[SPACED": PRINT X*; M ID.NR[SPACE3EINBEBEN 
[ SPACE 3 " ; : GOSUB 1 8000 < 1 24 > 

8130 FOR 1=1 TO B:IF K*=MID* (B*(I ) , 18, 

2)THEN PRINT ,, [RIGHTB3";B*(I) <015> 

8140 NEXT <109> 

8150 GOSUB 10000 <115> 

8160 PRINT X*;"NOCH[SPACE3EINE[SPACE3DISK[SPACE3 
LISTEN[SPACE3(J/N) [SPACE 3": GOSUB 11000 
:IF A*= M J"THEN 8120 <131> 

8170 RETURN <151> 

8200 REM <151> 

8210 REM *** LISTEN NACH ID KRITERIUM ERSTELLEN 

*** <125> 

8220 REM <171> 

8230 PRINT V*; "LISTEN [SPACE 3NACH [SPACE 3 ID[SPACE 3 

KR I TER I UM [SPACE 3ERSTELLEN [SPACE 3 " 
: PRINT XSjZM* <237> 

8240 PRINT X*; "NACH [SPACE 3 WELCHEM [SPACE 3 

KRITERIUM[SPACE3SUCHEN[SPACE3?"; : GOSUB 18000 
:F*=LEFT*<K$,1) <218> 

8250 IF F*="<-"THEN RETURN <185> 

8260 PRINT X$;"DATENDISKETTE[SPACE3EINLEGEN 

[SPACE 3 " : GOSUB 1 7000 : F I *= " «: " +F I * < 097 > 
8270 X=0:FOR 1=1 TO B: IF MID* (B* ( I) , 18, 

1>=F*THEN X=X+1 <039> 

8280 NEXT <218> 

8290 IF X=0 THEN PRINT X#; "KE IN [SPACE 3ELEMENT 

[SPACE 3VORH. " : GOSUB 10000: RETURN < 128> 
8300 OPEN 1,8,1,FI*+",S,W":PRINT#1,X <083> 
8310 GOSUB 16000: IF TO0 THEN GOSUB 10000 

: CLOSE 1: RETURN <159> 

8320 FOR 1=1 TO B: IF MID* (B* ( I ) , 18, 

1 ) =F*THEN PRINT" [SPACE83" ; B* ( I ) : PRINT#1 ,B* < I ) 

<239> 
8330 NEXT: CLOSE 1: RETURN <223> 

9000 REM <218> 

9010 REM *** DATEN ERWEITER/LOESCHEN *** <051> 
9020 REM <238> 

9030 PRINT V*;"F1 [SPACE, RVOFF, SPACE 3 DATEN [SPACE 3 

ERWE I TERN [SPACE 3 " < 037 > 

9040 PRINT X*; "F3 [SPACE, RVOFF, SPACE 3DATEN [SPACE 3 

FILE[SPACE3ZULADEN <143> 

9050 PRINT X*; ,, F5[SPACE,RVOFF,SPACE3DATEN[SPACE3 

LOESCHEN [SPACE 3 ( ID. NR. ) [SPACE 3" < 181 > 

9060 PRINT X$;"F7[ SPACE, RVOFF, SPACE 3 

STANDARDKOPF [SPACE 3SPE I CHERN [SPACE 3 " < 076 > 
9070 PRINT X*;ZM* <172> 

9080 GOSUB 11000 <026> 

9090 IF A*=CHR*(95)THEN RETURN <002> 

9100 IF A*=CHR*< 133) THEN GT=1 : I=B+1 :GOTQ 1000 

<251> 
9110 IF A*=CHR*< 134) THEN FJ=B: GOSUB 6000:FJ=0 

: RETURN <055> 

9120 IF A*=CHR*< 135) THEN 9160 <141> 

9130 IF A*=CHR*< 136) THEN OPEN 7,B,7 f "e 

: STANDARDKOPF , S , W " : PR I NT#7 , BN* : PR I NT#7 , BA* 

<151> 
9140 IF A*=CHR*< 136) THEN PRINT#7,BW*:PRINT#7,BT* 

: CLOSE 7 <13B> 

9150 GOTO 9030 <054> 

9160 PRINT V*;"EINGABE [SPACE 3DER [SPACE 3ZU [SPACE 3 

LOESCHENDEN [SPACE 3 1 D [SPACE 3NR - [SPACE 3? [SPACE 3 

": PRINT X*; <062> 

9170 GOSUB 18000 <123> 

9180 PRINT X*; M SOLL[SPACE3";K*; "[SPACE3 

GELOESCHT [SPACE 3WERDEN [SPACE 3 (J/N) [SPACE 3? 

[SPACE 3" <176> 

9190 GOSUB 11000: IF A*<>"J"THEN RETURN <217> 
9200 FOR 1=1 TO B <166> 

9210 IF K*=MID*CB*(I) ,18,2)THEN GOSUB 9240 <21B> 
9220 NEXT <170> 

9230 RETURN <192> 

9240 FOR J=I TO B: B$ ( J) =B*< J+l ) :NEXT <109> 
9250 1=1-1 :B=B-1: RETURN <122> 

10000 PRINT X*; "TASTE [SPACE 3DRUECKEN [SPACE 3" :T=0 

: GOSUB 11000: RETURN <142> 

11000 GET A*: IF A*=""THEN 11000 <225> 

11010 RETURN <187> 

12000 REM <157> 



12010 REM *** BLOCKS FREE ROUTINE **» <169> 
12020 REM <177> 

12030 PRINT V$;BF$;"[SPACE3FUNKTION" <019> 
12040 FI*="e:"+BF*:FOR 1=1 TO 200:FF*( I) =" " :NEXT 

<003> 
12050 FF=1:K=2: 1=2: BR*="FUNKION[SPACE3ENDE" 

<158> 
12060 PRINT X*; " B I TTE [SPACE 3WARTEN [SPACE 3B IS 

[SPACE 3" ; BR*: FF* ( 1 ) =MID* (B* ( 1 ) , 18,2) <013> 
12070 FF*<I)=MID*(B*(K) ,18,2) <097> 

12080 FOR J=l TO 1-1 <214> 

12090 IF FF*(I)=FF*(J)THEN 12120 <216> 



12100 NEXT 

12110 1=1+1 

12120 K=K+1:IF K>B THEN 12140 

12130 GOTO 12070 

12140 Z=I-1 

12150 FOR C=l TO Z-l 



<245> 
<156> 
<076> 
<020> 
<204> 
<038> 



12160 J=C+1:PRINT X*; " ELEMENT [SPACE7,LEFT4 3" ; 

J-1;"[UP33" <16B> 

12170 FOR D=J TO Z <120> 

12180 IF FF*(C) >FF*(D)THEN 12200 <036> 

12190 GOTO 12210 <076> 

12200 C* (0) =FF* (C ) : FF* CO =FF$ (D) : FF* (D) =C* (0) 

<067> 
12210 NEXT ^ <099> 

12220 NEXT <109> 

12230 PRINT X*; "BLOCKS [SPACE 3WERDEN [SPACE 3 

ADD I ERT " : BL*= " [RVSON 3D I SK [SPACE 3 " 

: BM*= " [RVSON 3 " +BF* < 1 1 5 > 

12240 J=l <044> 

12250 FOR 1=1 TO B: IF 1=1 THEN GS=0 <176> 

12260 IF MID*(B$(I) , 18,2) =FF* ( J) THEN GOSUB 12350 

<216> 

1 2270 NEXT : FF* ( J ) =BF*+ " [SPACE 3D I SK [SPACE 3 

"+FF*(J)+ ,, [SPACE3 M +RIGHT*(ZK*+STR*(664-GS) ,3) 

:J=J+1 <105> 

12280 IF J<Z+1 THEN 12250 <133> 

12290 PRINT X*;BR* <05B> 

12300 PRINT X*; "DRUCKER [SPACE 30DER [SPACE 3SCREEN 

[SPACE 3 (D/S) [SPACE 3": GOSUB 11000:PRINT <109> 
12310 IF A*<>"S"AND ASO'^'THEN GOSUB 11000 

:GOTO 12320 <018> 

12320 IF A*="D"THEN 12380 <255> 

12330 FOR 1=1 TO Z:PRINT" [RIGHT43"; FF* ( I) <021> 
12340 GOSUB 11000: NEXT: GOTO 12420 <091> 

12350 G=0:G=VAL(RIGHT$<B*(I) ,3)) <089> 

12360 GS=GS+G <079> 

12370 RETURN <016> 

12380 PRINT X*;"DRUCKER[SPACE3EINSCHALTEN[SPACE3 

! [SPACE 3" <127> 

12390 GOSUB 10000 <020> 

12400 OPEN 4,4 <211> 

12410 FOR 1 = 1 TO Z:PRINT#4, ,, [SPACE53";FF*(I) 

: NEXT: PRINT#4: CLOSE 4 <032> 

12420 PRINT V*;"DATEN[SPACE3AUF[SPACE3DISK 

[SPACE 3SPE I CHERN [SPACE 3?[SPACE3 < J/N) " 

:GOSUB 11000: IF A*<> n J"THEN RETURN <1B7> 
12430 PRINT X*; "DATEN [SPACE 3D I SKETTE [SPACE 3 

E I NLEGEN [ SPACE 3 " < 09B > 

12440 GOSUB 10000: OPEN 2 f 8,2,FI*+" , S, W" 

:PRINT#2,Z <10B> 

12450 FOR 1=1 TO Z: PRINT#2,FF* (I) :NEXT: CLOSE 2 

<191> 
12460 RETURN <106> 

14000 REM <117> 

14010 REM *** AUSSORTIEREN FREMDER LISTEN *** 

<243> 
14020 REM <137> 

14030 IF B<2 THEN RETURN <235> 

14040 PRINT V*;"AUSSORTIEREN[SPACE3FREMDER 

[SPACE3LISTEN ,, :DI*="©:DIFFERENZ ,, :LI*="LISTE" 

ix=l <239> 

14050 PRINT X*;"MIT[SPACE3WELCHER[SPACE3LISTE 

[SPACE 3VERGLEICHEN [SPACE 3?": GOSUB 17000 <075> 
14060 PRINT X*;"WIEVIEL[SPACE3ZEICHEN[SPACE3 

VERGLEI CHEN [SPACE 3 ( 1-20) [SPACE3" ; : GOSUB 1B000 

:SK=VAL(K*) <024> 

14070 IF SK>25 THEN SK=25 <203> 

14080 OPEN 5,B,5,FI*+",S,R M :G0SUB 16000 

:IF TO0 THEN 14100 <162> 

14090 OPEN 2,8,2, "@: LISTE"+" ,S, W":GOSUB 16000 

<237> 

14100 IF TOO THEN CLOSE 5: CLOSE 2: PRINT X*;K* 

: PRINT X*;ZM*: GOSUB 11000: RETURN <021> 

14110 INPUT#5,C <125> 
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<244> 

<00i> 

<006> 
14300 

<082> 
<102> 
<103> 
<254> 



14120 FOR J=l TO C 

14130 INPUT#5,D*: PRINT" CRIGHT53"; D* 

14140 FOR 1=1 TO B 

14150 IF LEFT*(D*,SK)=LEFT*<B*CI) ,SK)THEN 

<135> 
14160 NEXT I 
14170 PRINT#2,D$sX=X+l 
14180 NEXT J 

14190 CLOSE 5: CLOSE 2: X=X-1 
14200 IF X=0 THEN PRINT" C CLEAR, DOWN, RVSON, SPACE 3 

KE IN CSPACE 3NEUES CSPACE 3ELEMENT CSPACE 3 

GEFUNDEN" : GOTO 10000 
14210 OPEN 7,8,7,DI*+" ,S,W" 
14220 PRINT#7,X 
14230 OPEN 5,B,5,LI*+",S,R" 
14240 FOR 1=1 TO X: INPUT#5,D*: PRINT#7,D$: NEXT 

<096> 
14250 CLOSE 7: CLOSE 5 <199> 

14260 PRINT V$;"DASCSPACE3AUSSORTIERENCSPACE3 

I ST CSPACE 3BEENDET CSPACE 3 " < 224 > 

14270 PRINT X$;"DASCSPACE3DATENFILECSPACE3< 

CSPACE 3D I FFERENZ CSPACE 3 > CSPACE 3 " < 004 > 

14280 PRINT X*; "KANN CSPACE 3GELADEN CSPACE 3ERDEN 



<095> 
<035> 
<022> 
<054> 



CSPACE 3" 
14290 OPEN 15,8,15,"S0:LISTE M :CLOSE 15 

:GOSUB 16000: RETURN 
14300 IF J=C THEN 14190 
14310 NEXT J 
14320 RETURN 
15000 REM 

15010 REM *** ABFRAGE ROUTINEN *** 
15020 REM 

16000 I NPUT#3,T,KS, 0,0: RETURN 
17000 PRINT X*;"FILECSPACE3NAMECSPACE3"; : F= 

:GOSUB 18000: F=0:FI*=K$: RETURN 
18000 K$="" 

18010 GOSUB 11000: IF A*=CHR$ ( 13) THEN PRINT 
: RETURN 

18020 IF A*=CHR*<20)AND LEN<K$)<>0 THEN K*= 

$<K*,LEN(K$)-1):PRINT A*; 
18030 IF DR=1 AND LEN(K*>=33 THEN 18010 
18040 IF F=l AND LEN(K$)=18 THEN 18010 
18050 IF A$>CHR$<31)THEN K*=K$+A$: PRINT A*; 

<158> 
18060 GOTO 18010 



< 



<120> 
<131> 
<233> 
<181> 
<097> 
<195> 

<117> 
<078> 
1 
<021> 

<251> 

<127> 



- 



<218> 
<163> 
<096> 



<085> 
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Kennen Sie Home- oder Personal 
Computer, Hard- oder Software so gut, 
daft Sie ein Buch daruber schreiben 
konnen? Haben Sie schon konkrete 
Vorstellungen zu einem bestimmten 
Thema? Suchen Sie einen leistungsstarken 
Partner, mit grofrflachigem Vertriebsnetz, 
der den verlegerischen Teil beherrscht 
und ubernimmt? 



Programmieren Sie Ihren Computer 
selbst? Haben Sie Programme, die Sie 
selbst geschrieben haben? Wozu setzen 
Sie diese Programme ein? Wurden Sie 
gerne Ihre Programme professionell 
yermarkten und suchen dazu einen 
Vertriebspartner? 



Wir suchen die besten Programme, urn 
sie als »Happy-Software-Produkte« zu 
vermarkten oder in unseren Publikationen 
»Computer personlich«, »Happy Com- 
puter oder »64'er« zu veroffentlichen. 

Unsere Konditionen werden Sie 
zufriedenstellen. 

Senden Sie uns eine aussagefahige 
Gliederung bzw. Ihr Programm auf Dis- 
kette oder Kassette mit Beschreibung. 



M&T Buchverlag 
Markt & Technik Verlag 

Aktiengesellschaft 

z.H. Herrn Frank 
Hans-Pinsel-Str. 2, 8013 Haar 




Verlag Aktiengesellschaft 









Sequentielle Files 










sequentieller 




Oft kommt es vor, gerade beim Pro- 
grammieren von Datei-Verwaltungen, 
daft sich Fehler einschleichen. Wenn 
sich diese Fehler innerhalb einer se- 
quentiellen Datei befinden, hilft Ihnen 
dieses Programm, sie zu finden und zu 
verbessern. 



Mit diesem Programm konnen Siejede beliebige sequentiel- 
le Date! lesen, edltieren, drucken und wiederneuabspeJchern. 
Es gibt mehrere Anwendungsfalle fur ESF: 

1. Sie haben auf einer Diskette ein sequentielles File und 
mochten wissen, was dort gespeichert steht. Mit ESF ist das 
kein Problem. 

2. Sie benutzen in einem Programm eine sequentielle Datei 
und erhalten bei der Ausgabe nicht das gewunschte Ergebnis. 
Urn den Fehler schneller zu finden, konnen Sie mit ESF die Da- 
tei anschauen und drucken. So erkennen Sie zum Beispiel, ob 
schon beim Speichern Fehler gemacht wurden oder erst beim 
Lesen der Daten. Somit lassen sich Fehlerquellen eingrenzen. 
Auch Anderungen lassen sich einfach durchfuhren. Datensat- 
ze konnen geloscht oder verandert, aber auch zusatzliche an 
beliebiger Stelle hinzugefugt werden. 

Bedienung des Programms 

ESF ist ein reines Basic-Programm und wird mit LOAD 
"ESF*", 8 geladen. Es ist vollstandig menugesteuert. Nach 
dem Start muB der Dateiname eingegeben werden. Sie sollten 
also vor dem Laden von ESF wissen, welche Datei bearbeitet 
werden soil. Die nachste Frage entscheidet uber die Art des 
Einlesens, entwedermitGET# oder mit INPUT#. 

Mit INPUT # wird j.eder Datensatz bis zum nachsten Tren- 
nungszeichen (CHR$(13)) auf einmal gelesen. Mit der Leerta- 
ste werden weitere Satze angezeigt. Jeder Datensatz wird nu- 
meriert (nur auf dem Bildschirm oder spater auf dem Drucker, 
nicht in der Datei selbst). Die Nummern werden revers am lin- 
ken Bildschirmrand ausgegeben. Sie erleichtem des 
Editieren. 

Da Datensatze langer als 88 Zeichen sein konnen, kann 
auch GET# benutzt werden. Mit INPUT # gabe es ein 
»STRING TOO LONG ERROR«. Dann wird mit jeder Betatigung 
der Leertaste ein einziges Zeichen gelesen. Diese Zeichen 
werden solange aneinandergefugt, bis das Trennungszeichen 
(CHR$( 13)) erscheint. Es wird durch ein »* « sichtbar gemacht. 
Lesen mit GET # dauert zwar langer, jedoch konnen samtliche 
Zeichen gelesen werden, also auch Kommata. 

Wenn Sie einen Drucker haben, sollten Sie sich die Datei 
ausdrucken lassen. Das geht mit jedem Drucker, der mit OPEN 
1,4 angesprochen werden kann. Auch hier werden, wie schon 
erwahnt, die Datensatze numeriert. Die Nummern brauchen 
sie beim Einfugen, Andern und Loschen. Mit ihnen kann jeder 
Satz angesprochen werden. 
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Beim Einfugen und Andern habeji Sie ebenfalls die Moglich- 
keit, dies entweder mittels GET oder INPUT zu machen. GET 
sollte dann gewahlt werden, wenn im Datensatz Kommata oder 
andere Zeichen vorkommen sollen, die INPUT nicht akzeptiert, 
Oder bei Eingaben langer als 88 Zeichen. In jedem Fall wird die 
Eingabe mit der RETURN-Taste abgeschlossen. 

Die Datei kann erneut abgespeichert werden, unabhangig, 
ob sie verandert wurde oder nicht. Sie kann sowohl einen neu- 
en Namen erhalten (die bisherige Version wird nicht geloscht), 
als auch iiberschrieben werden. Eine Sicherheitsabfrage ver- 
hindert ein versehentfiches uberschreiben. AnschlieRend 
startet ESF erneut. 

(G. Kluge) 



Variablenliste 

TE$(I) = jedes Element enthalt einen Datensatz 
N$ = enthalt den Dateinamen 

Fl$ = Dateiname plus Parameter zum Offnen der Datei 
A$ = eingelesenes Zeichen (GET) oder Zeile (INPUT) 
ST = Statusvariable = 64, wenn Dateiende erreicht 
A1,A2$,A3,A4 = Fehlermeldungen bei Floppy-Fehler 
I = Anzahf der bisher gelesenen Datensatze 
N = Nummer der Zeile, die geandert, eingefugt oder geloscht wer- 
den soil. 



220 PR I NT " [DOWN , SPACE6 3LESEN [SPACE 3UND [SPACE 3 

EDITIEREN" <1?3> 

230 PRINT" [DOWN, SPACE83EINER[SPACE3SEQ. [SPACED 

DATEI" ^ <197> 

240 PR I NT " [D0WN2 , SPACE6 3L [SPACE 3= L SPACE 3LESEN 

[ SPACE DEI NER [SPACE 3DATE I " < 20 1 > 

PRINT" [DOWN, SPACE6 3B [SPACE 3= [SPACE 3 

PROGR AMMENDE [SPACE 3 " < 232 > 

60 PR I NT " :*i*j»j»j»j*j*jttj»ji^^^^^ 



■*-*-*. " 



< 226 > 



270 

2S0 
290 
300 
T510 
320 
330 
340 
350 
360 



PRINT " [DOWN, RVSON, SPACE 3WAEHLE: [RVOFF3" 

<145> 
BET R$: IF R*= ,,M THEN 280 

CLOSE 2: CLOSE 15: END 

280 



IF R*="B" THEN 
IF R*<>"L"THEN 



REM LESEN EINER SEQ-FILE 



1 = 1 



<162> 
<207> 
<099> 
<113> 
<133> 
<133> 
<143> 
<139> 



PR I NT" [D0WN2 , SPACE JWELCHE [SPACE DDATEI [SPACE 1 

SOLL [SPACE DGELESEN [SPACE 3WERDEN? " < 200 > 
370 INPUT "DATE I NAME [SPACE 3= [SPACE D U ;N$ <174> 
380 FI$=N$+" ,S,R" <063> 

390 PR I NT " &.*JtJtjit3tj&jt^^^ 

*-*-* " < 1 00 > 

400 PRINT" [DOWN2,SPACE23SOLL[SPACE3MIT[SPACE3 

GET [SPACE 30DER [SPACE 3M I T [SPACE 3 1 NPUT " < 056 > 
410 PR I NT " [DOWN , SPACE2 3GELESEN [SPACE 3 WERDEN 

[SPACED (G/ I) [SPACE 3?" 
420 GET RR$:IF RR*=""THEN 420 
430 IF RR$="G M THEN 480 
440 IF RR$="I" THEN 670 
450 GOTO 420 
460 : 

470 REM GET* — 

480 OPEN 2,8,2,FI$ 

490 INPUT#15, A1,A2*,A3,A4 



00 IF 



A1O0 THEN GOSUB 



»?-?■*"> 

*!-_• 



20s GOTO 



-_>%J 







<160> 

< 206 > 
<130> 
<143> 

< 226 > 
<007> 

< 206 > 
<083> 
<119> 
<220> 



. 



100 REM 


*******#****^**#*#****#**#*#-*..* 


<223> 


110 REM 


* EDIT SEQ-FILE * 


<173> ! 


120 REM 


* # 


<09i> ; 


130 REM 


* EDITIEREN VON SEQUENT I ELLEN* 


<207> j 


140 REM 


* DATE I EN * 


<105> ? 


150 REM 


*********************##*■«-**♦** 


<017> ! 


160 : 




<2i8> ; 


170 : 




<22B> 


180 DIM 


TE*(900):REM MAX ANZAHL DATENSATZ 


<252> 


190 OPEN 15,8,15 


<185> 


200 PRINT" [CLEAR 3" 


< 056 > 1 


210 PR I NT " .*j*i*Jfc**Jh*JK*_^^^ 1 


*_*_*." 




<175> 



.. 
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510 PRINT" [CLEAR]" 

520 PR I NT : PR I NT " CBP ACEB ]LEERT ASTE [SPACE ] 
DRUECKEN C5PACE] !": PRINT 

530 PR I NT " [SPACES ] " : PR I 

<072> 
540 PR I NT " [RVSON ]"I" [RVOFF ] " ; 
550 GET R*:IF R*<>" [SPACE ]"THEN 550 

560 GET#2,A$ 

570 IF A*=CHR*(13)THEN PRINT"*" : 1=1+1 : GOTO 

<187> 
580 TE* ( I ) =TE* < I > +A* 
590 PRINT A$; 
600 GOTO 550 
610 IF ST<>64 THEN 540 
620 CLOSE 2 



630 
640 
650 
660 
670 
680 
690 
700 
710 

720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 

840 



1 = 1-1 

GOTO 800 



<111> 

< 1 68 > 
NT 

<103> 

< 099 > 
<185> 
610 

<181> 
<137> 
<125> 
<164> 
<064> 

<152> 

<163> 
<198> 

< 208 > 
<237> 

< 028 > 
<064> 
<165> 

<102> 
<012> 
<035> 
<084> 
<158> 
<028> 
<215> 
<073> 
<083> 
<130> 

S <103> 

FL AG=0 < 05 1 > 

PR I NT " »jfcjfc*jfc«Jfc»i*>J^ 

<030> 



1180 INPUT"NR: " ; N* : N= VAL ( N$ ) 



<178> 



REM INPUT# 

OPEN 2,8,2,FI$ 
INPUT#15, A1,A2$,A3,A4 
IF A1O0 THEN GOSUB 2320: GOTO 350 
PRINT: PRINT" [SPACEB3LEERTASTE [SPACE] 
DRUECKEN [SPACE 1 ! " : PR I NT 
GET R$:IF R*<>" [SPACE ]" THEN 720 
INPUT#2,A$ 
TE* ( I ) =A$ 

PR I NT " [RVSON 3 " I " [RVOFF ] " ; A* 
IF ST<>64 THEN 1=1+1 s GOTO 720 
CLOSE 2 



REM 



EDITIEREN 



PR I NT " [ D0WN2 , SP ACE2 ]E C SPACE ]= [SPACE ] 
EINFUEGEN [SPACE 3EINER [SPACE 3ZE ILE" <078> 
850 PRINT" [DOWN, SPACE2 3C [SPACE 3= [SPACE 3 AENDERN 

[SPACE3]EINER[SPACE]ZEILE" <172> 

860 PRINT" [DOWN, SPACE2 3L [SPACE 3= [SPACE ]LOESCHEN 

[SPACE2]EINER[SPACE]ZEILE" <019> 

870 PRINT" [DOWN, SPACE2 3D [SPACE ]= [SPACE 3DRUCKEN 

[SPACE 3DER [SPACE 3DATE I [SPACE4]" <038> 

880 PRINT" [DOWN, SPACE2]2 [SPACE ]= [SPACE 3WE ITER 

[SPACE!" <160> 

890 PR I NT " «l*j»j»j*j»J^^ 

_»_*.* " < 090 > 

PRINT" [ DOWN 3WAEHLE" <043> 

GET R$:IF R$=""THEN 910 <026> 

IF R*="E"THEN GOSUB 1470 <215> 



900 

910 

920 

930 IF R$="C"THEN GOSUB 1030 <215> 

940 IF R$="L"THEN GOSUB 1620 <239> 

950 IF R$="D"THEN GOSUB 1730 <243> 

960 IF R$="2"THEN 1960 <099> 

970 GOTO 800 <238> 

980 : <017> 

990 : - <027> 

1000 REM AENDERN EINER ZEILE — <248> 

1010 PR I NT " tt_*j*j*j*j*j»_^^^^ 

r»3fc»3fc " <210> 

1020 : <057> 

1030 PRINT" [CLEAR ]AENDERN [SPACE 3EINER [SPACE] 

ZEILE" <099> 

1040 PRINT" [DOWN,SPACE]I=[SPACE3MIT[SPACE]INPUT 

[SPACE ](KE IN [SPACE 3KOMMA [SPACE]! )" <016> 
1050 PRINT" [DOWN, SPACE ]G= [SPACE ]M IT [SPACE ]GET 

[SPACE3CSCHREIBFEHLER[SPACE3VERMEIDEN! ) " 

<033> 
1060 PRINT" [DOWN, SPACE 32= [SPACE] WE ITER" <085> 
1070 PR I NT " jHL»J£JML*Jfc*J^^^^^ 



1090 
1100 
1110 
1120 



RETURN 

1300 

1140 



<015> 
<241> 
<255> 
<174> 
<003> 
<017> 
<187> 

<162> 

1150 IF FLAG=1 THEN 1220 <118> 

1160 PR I NT " *j»j*JtL*>j»j»j»j»j^^^ 

*-».»_*. " <105> 

1 1 70 PR I NT " WELCHE [SPACE ] ZE I LE [SPACE ]SOLL [SPACE ] 
GEAENDERT[SPACE3WERDEN?" < 1 13> 



1080 PRINT" [D0WN2]WAEHLE" 

GET R$:IF R$=""THEN 1090 

IF R$="2"THEN 

IF R*="G"THEN 

IF R$=" I "THEN 
1130 GOTO 1030 
1140 REM INPUT 



1190 IF N<1 OR N>I THEN PRINT 

: PR I NT TAB (8) "NICHT[SPACE 3MOEGLICH ! [SPACE]" 
: PRINT: PRINT: GOTO 1160 <202> 

1200 PRINT"ALTER[SPACE]INHALT 

: [SPACE, RVSON ]"TE*<N> <113> 

1210 PRINT <087> 

1 220 PR I NT " [DOWN , SPACE 3GEBEN [SPACE ]S I E [SPACE ] 
JET ZT [SPACE ]DEN [SPACE ]NEUEN [SPACE ] I NHALT 
[SPACE ]EIN [SPACE] (INPUT) [SPACE]" <088> 
1230 INPUT A* <188> 

1240 TE*(N)=A* <079> 

1250 PRINT" [DOWN, RVSON ]"TE$(N) <066> 

1260 FLAG=0 <236> 

1270 RETURN <136> 

1280 REM MIT GET <226> 

1290 PR I NT " £*JL*Jt*JUt&^^ 

*_*■*_*. " <236> 

1300 IF FLAG=1 THEN 1330 <015> 

1310 PRINT" WELCHE [SPACE ]ZEILE [SPACE ]SOLL [SPACE] 

GEAENDERT [SPACE ]WERDEN?" <254> 

1320 INPUT"NR:";N$:N=VALCN$) <063> 

1 330 PR I NT " ALTER [SPACE ] I NHALT [SPACE 3 " ; TES ( N ) 

:TE*(N)="" <111> 

1340 PR I NT " m *jw*jitL*J*J&J*Jk&Jt^^ 

■*-**■* " < 030 > 

1 350 PR I NT " [DOWN , SPACE 3GEBEN [SPACE 3S I E [ SPACE ] 

JETZT [SPACE 3DEN [SPACE ]NEUEN [SPACE ] I NHALT 

[SPACE ]EINCSPACE] (GET): [SPACE2]" : PRINT <056> 



1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 



GET A$:IF A*="" THEN 1360 
IF A*=CHR* ( 1 3 > THEN 1420 
PRINT A*; 
TE$(N)=TE*(N)+A* 
GOTO 1360 



PRINT" [DOWN, RVSON ]"TE$(N> 

FLAG=0 
1450 RETURN 
1460 : 

REM EINFUEGEN EINER 



1470 
1480 
1490 



ILE — 



<236> 
<235> 
<162> 
< 236 > 
<208> 
<193> 
<203> 
<247> 
<161> 
<061> 
<243> 
<060> 



: <007> 

PR I NT " ^*j*l*j»*j**jml^^^ 

<180> 



1510 
1520 
1530 
1540 
1550 
1560 
1570 
1 



1500 PRINT"HINTER [SPACE 3WELCHER [SPACE 3ZE ILE" 

<011> 

INPUT N 

N=N+1 

FOR L=I TO N STEP-1 

:TE*(L+1)=TE$(L) 

NEXT L 

1 = 1 + 1 

FLAG=1 

PR I NT " SCHRE I BEN [ SPACE 3DER [ SPACE ]NEUEN 
[SPACE] ZEILE [SPACE]" 
1590 GOTO 1040 
1600 : 
1610 : 
1 620 REM — LOESCHEN 

1630 : 

1640 PRINT: PRINT 

1650 PR I NT" «i*»jfr_*j*jfc^^ 

.*.*_*_*. " <085> 

1660 INPUT" [SPACE 3WELCHE [SPACE] ZEILE [SPACE] 



<190> 
<030> 
<062> 
<133> 
<226> 
<061> 
<037> 

<113> 
<138> 
<128> 
<138> 
<024> 
<158> 
<218> 



<149> 
1710 



<135> 
<192> 



LOESCHEN?" ;N 

1670 IF N>I THEN PRINT"MAX=[SPACE]" I : GOTO 

<219> 

1680 FOR L=N TO I: TE* (L) =TE* CL+1 ) : NEXT 

1690 1=1-1 

1700 PRINT"ZEILE"N"[SPACE]IST[SPACE]GELOESCHT ,, 

<032> 
1710 RETURN <066> 

1720 : <248> 

1730 REM DRUCKEN DER DATE I <193> 

1740 PRINT <107> 

1750 PR I NT " *_»Jh*jejt*j»*^^^^ 

*-*-*-*■ " = PR I NT <140> 

1760 PR I NT "DRUCKEN [SPACE ]DER [SPACE ]DATE I [SPACE]" 

<017> 

PR I NT " [DOWN , SPACE 31 = [SPACE 3DRUCKEN " 

PRINT" [DOWN , SPACE 32= [SPACE 3WE I TER" 

PRINT" [SPACE2 3WAEHLE" 

GET R*:IF R*=""THEN 1800 

IF R$<"1"QR R$>"2"THEN 1800 



1770 
1780 
1790 
1800 
1810 
1820 



< 



IF R*="2"THEN 1910 



088> 
< 039 > 
<151> 
<199> 
<255> 
<190> 



33a? 
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1,830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 



I NPUT " DRUCKER CSP ACE 1QK7 

OPEN l,4sCMD 1 

PR I NT "DATE I: CSPACE J" N$ 

FOR J=l TO I 

: PRINT J;TE*(J) 

NEXT J 

PRINT: PRINT: PRINT: PRINT 

PRINT#l:CLOSE 1 

RETURN 



li 



;R* 



REM 



SPEICHERN DER DATE I 



<144> 
<111> 
<049> 
<230> 
<005> 
<043> 
<123> 
<071> 
<011> 
<193> 
< 203 > 
<162> 



PR I NT " .*j»JMti*«i*-*^^^ 



ii 



<130> 



1 960 PR I NT " SOLL CSPACE 3DER CSPACE U6ESAMTE C SPACE 3 
TEXT C SPACE 3ERNEUT CSPACE 3ABGESPE I CHERT CSPACE 1 
WERDEN" <058> 

1970 PRINT" CDOWN, SPACE 31= CSPACE 1 J A" <160> 

1 980 PR I NT " CDOWN , SPACE 32= CSPACE 3PROGRAMMENDE " 

<161> 

1990 PR I NT " jHHMMHMMMMH^^ 

<170> 



2000 PRINT" CDOWN, RVSON3WAEHLE" 
2010 GET R$:IF R*=""THEN 2010 
2020 IF R*="2" THEN RUN 
2030 IF R*<>"1"THEN 2010 
2040 PRINT 

2050 PR I NT " WELCHER CSPACE 3DATE I NAME " 
2060 INPUT N$ 
2070 FI$=N$+ M ,S,W" 
2080 PRINT" [CLEAR 3" 

CLOSE 2:0PEN 2,8,2,FI* 



2090 
2100 
2110 
2120 



<141> 
<147> 
<069> 
<057> 
<152> 
<121> 
<011> 
<229> 
<120> 
<176> 



INPUT#15, A1,A2$,A3,A4 



<200> 
IF A1=0 THEN 2200 <144> 

IF Al<>63 THEN GOSUB 2320: GOTO 1960 <16B> 
2130 PR I NT: PR I NT" CSPACE 3DER CSPACE 3NAME CSPACE 3 

"N , $" CSPACE 3EX I ST I ERT CSPACE 3SCHON ! " <025> 
2140 PRINT:PRINT" CSPACE 3WOLLEN CSPACE 3S IE CSPACE 3 
DIESE CSPACE 3DATEICSPACE3UEBERSCHREIBEN?" 

<220> 
2150 PRINT: PRINT" CSPACE 3WAEHLE CSPACE 3 (J/N) 

CSPACE 3" <236> 

2160 GET R$:IF R*=""THEN 2160 <048> 

2170 IF R*="J"THEN N*="@: "+N*s GOTO 2070 <244> 
2180 IF R$<> n N"THEN 2160 <243T> 

2 1 90 PR I NT : PR I NT " CSPACE 3 VERSUCHEN CSPACE 3S I E 

CSPACE 3ES CSPACE 3NOCH CSPACE 3E I NMAL " : GOTO 1 960 

<227> 
2200 FOR J=l TO I <059> 

2210 : PRINT#2,TE*<J> : PRINT" CHOME,DOWN3" J , I 

<044> 
2220 NEXT J <128> 

2230 : <248> 

2240 PRINT"GESPEICHERT! " <249> 

2250 CLOSE 2 <164> 

2260 FOR 1=1 TO 1500: NEXT <175> 

2270 RUN <112> 

<042> 

<052> 
2300 PRINT" CCLEARD" <116> 

2310 PR I NT " .*-*JtL*JMMfc*L*j^^^ 

Jt±iiLCDOWN2 3" <014> 

2320 PR I NT " *JJL*j*j*i*JMfi*^^^ 

*4±±CDOWN2 3" 

2330 PRINT"CSPACE13 3DISKETTENFEHLER! CDOWN23" 

<164> 
2340 PRINT" CSPACE, RVSON,SPACE3DATEI CSPACE3 

: CSPACE3"N* 
2350 PRINT" CRVOFFH": REM RE VERS OFF 
2360 PRINT A1,A2$,A3;A4 
2370 CLOSE 2 
2380 PR I NT " CD0WN2 , SPACE7 3 BEHEBEN CSPACE 3S I E 

C SPACE 3DEN CSPACE 3FEHLER CSPACE 3UND CSPACE4 3 " 

<146> 
2390 PRINT"CDOWN2,SPACE23 DRUECKEN CSPACE 3 

S IE CSPACE 3 >F< CSPACE 3 " <140> 

2400 GET R$:IF R^O^F" THEN 2400 <022> 

2410 PRINT"CCLEAR3 M <227> 

2420 RETURN <011> 



<024> 



<047> 
<033> 
<095> 
<029> 
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organisieren 



Nur der Dumme raumt auf, das Genie 
beherrscht das Chaos. Aber mal ganz 
ernsthaft, wem ist es noch nicht pas- 
siert, daft nach einer Kopieraktion von 
drei zusammengehorigen Program- 
men sich zwei davon auf der falschen 
Diskette wiederfanden, oder daft ihm 
die Reihenfolge seiner Programme 



bei 



das zu andern nach einigen Stunden 
SCRATCH & SAVE verzweifelt aufaab? 



Dies muB ein Ende haben, dachte ich mir und ging daran, ein 
Werkzeug zu entwickeln, daB das Chaos beherrscht und Ord- 
nung in wirre Diskettenverhaltnisse bring! Ob das Programm 
deswegen geniale Zuge tragt, verbietet mir die Bescheiden- 
heit zu diskutieren. Bleiben wir bei den Fakten. 

Track 18 ist von der Grundkonzeption her dafur gedacht, ein 
Diskettendirectory umzusortieren und an geeigneter Stelle 
Bemerkungen anzubringen. Daruber hinaus bietet es einige 
nutzliche und teilweise nicht alltagliche Features. So zum Bei- 
spiel die Moglichkeit, eine Bemerkung (etwa Informationen 
uber einzelne Programme) in einen freien Bereich auf Spur 18 
zu schreiben. Sollte jemand, wie ich auch, es vorziehen, 
Schreibschutzaufkleber zum Beschriften seiner Disketten zu 
verwenden, es sei ihm gewahrt - Track 18 bietet auch einen 
Softschutz. Auch die Moglichkeit einzelne Files zu schutzen, 
die das DOS der 1541 vorsieht, wird genutzt. 

Das Programm arbeitet ausschlieBlich mit Spur 18 (Hex 
$12), wenn man von den Auswirkungen einiger Diskettenbe- 
fehle absieht. 

Die Programmbedienung wird dem Anwender durch konse- 
quente Menufiihrung leicht gemacht. 
Der Aufbau en Detail: 

Das Hauptmenu: 

Directory einlesen 
Directory bearbeiten 
Neues Directory schreiben 
Directory von Disk 

Disk Command senden 

Diskettennamen andern 

Disk-Kommentar 

Files schutzen/freigeben 

Schreibschutz 

Ende 
Der aktuelle Menupunkt ist durch reverse Schrift hervorge- 



i 






i 



46 







C64 



Track 18 



J> 



hoben. Die Auswahl der Positionen erfolgt uber die Cursor- 
up/down Taste, die den reversen »Balken« verschiebt. Aus dem 
angewahlten Programmteil kann zu jedem Zeitpunkt durch F1 
ins Hauptmenu zuruckgekehrt werden. 

Directory einlesen 

Dieser Menupunkt gehort zu dem auch optisch abgetrenn- 
ten Komplex »Directory bearbeiten«. Das Directory muB zur 
Bearbeitung in den Speicher gelesen werden. Nur hier wird 
umgestellt, sortiert und eingefugt. Und um genau diese Dinge 
zu tun, bewege der geneigte Anwender den reversen Balken 
auf den Menupunkt. 

Directory bearbeiten 

Sofort nach Betatigen der Return-Taste (vorausgesetzt man 
hat vorher das Directory eingelesen) erscheint ein komplettes 
Inhaltsverzeichnis auf dem Bildschirm. Die bis zu 144 Files 
werden auf 9 Seiten dargestellt, die mit der Cursor-up/down 
Taste umgeblattert werden konnen. Komplett heiBt, auch freie 
Platze, die durch SCRATCH entstanden sind, werden ange- 
zeigt und konnen mit den Funktionen 

F3 = Sortieren 

F5 = Einfiigen 

F7 = Li>schen 
wie jeder andere Fiteeintrag behandelt werden. So kann ein 
Freiplatz an eine Stelle verschoben werden, wo beim nachsten 
SAVE der Programmname aufgenommen werden soil. 

Sortieren 

Die Routine ermoglicht das Verschieben eines Files von ei- 
ner Position zu einer anderen. Nach Drucken von F3 wird erst 
nach der Platznummer des Files gefragt, das verschoben wer- 
den soil, dann wohin es geschoben werden soil. 

Einfiigen 

Hier wird nach der Platznummer gefragt, vor die eine Bemer- 
kung gestellt werden soil. Da das System niemandem vor- 
schreibt, welcher Art eine solche Bemerkung sein soil, — es 
wird unverbindlich eine Reihe Bindestriche angeboten — fragt 
es noch nach dem Bemerkungstext. Dieser wird dann als Pro- 
grammfile getarnt in die Inhaltsliste aufgenommen. Ein Versuch 
diesen »blinden Passagier« durch LOAD spater aufzurufen en- 
det allerdings mit einem ERROR, da der Verweis auf den File- 
anfang auf der Diskette fehlt. 

Loschen 

Dieser Menupunkt ist mit etwas Vorsicht zu genieften. Nach 
Angabe der gewunschten Platznummer wird dieser Platz, ob 
Bemerkung, ob File, schonungslosgestrichen— wohlgemerkt 
nur im Speicher. Erst die Ruckkehr ins Hauptmenu und dann 
die Anwahl des Punktes. 

Neues Directory schreiben 

bannt alle Veranderungen auf die Diskette. Da dieser Pro- 
grammteil alle, auch ungewollte Anderungen am Directory end- 
gultig macht, wird zur Sicherheit noch einmal eine Befehls- 
bestatigung verlangt. Sollte man sich seiner Sache nicht ganz 
sicher sein, ist es ratsam, noch einmal einzulesen. 

Ein auf die Diskette zuruckgeschriebenes Inhaltsverzeich- 
nis ist naturlich ohne Einschrankungen funktionsfahig. 

Directory von Disk 

Dieser Programmteil stellt das im Moment tatsachlich auf der 
Diskette vorhandene Directory dar, ebenfalls in Seiten zu je 16 
Files. Die Routine ist nicht ubermaBig schnell und kann daher 
zu jedem Zeitpunkt mit F1 abgebrochen werden. Man kann auf 
diese Weise sofort den Erfolg seiner Arbeit kontrollieren, denn 
die Art der Darstellung entspricht genau dem »LOAD "$"« Be- 
fehl in Basic. 



Die im Folgenden beschriebenen Programmfunktion^n 
beinhalten praktisch alles, was man braucht, wenn man die in 
Spur 18 enthaltenen Informationen verandert. Zunachst je- 
doch die einzige Routine, die etwas aus dem Rahmen fallt, weil 
sie nicht auf Spur 18 begrenzt ist: 

Disk-Kommando senden 

Ohne OPEN-Anweisung kann jeder Befehl, den das DOS 
versteht, an die Diskettenstation geschickt werden. Das For- 
mat der Befehle ist dasselbe wie bei »OPEN«. Jedoch wird nur 
der Teil gebraucht, der normalerweise in Anfuhrungszeichen 
steht. Ein Befehl darf bis zu 70 Zeichen lang sein. 

Diskettennamen andern 

Wer mochte nicht manchmal eine Diskette umbenennen, oh- 
ne sie gleich zu formatieren? Name und ID sind gemeinsam 
oder einzeln veranderbar, ohne die ubrigen Informationen auf 
der Diskette zu beruhren. Ein echter Leckerbissen. 

« 

Disk-Kommentar 

Hier wird brachliegender Speicherplatz sinnvoll genutzt! In 
80 freie Bytes des Block auf Spur 18 kann eine 80 Zeichen 
lange Bemerkung geschrieben werden. Nach dem Anwahlen 
dieses Menupunktes gelangt man in ein Untermenu mit den 
Positionen: 
Lesen 

hier wird nur der vorhandene Text ausgelesen. 
Schreiben 

Vor jedem Schreibvorgang wird der schon vorhandene Text 
eingelesen und im vier Zeilen langen Arbeitsfeld dargestellt. Er 
kann nun uberschrieben oder zeilenweise editiert werden. 

Files schiitzen/freigeben 

Das DOS bietet eine Moglichkeit, einzelne Files vor verse- 
hentliGhem »exitus« zu beschutzen. Ein geschutztes File kann 
nicht geSCRATCHt werden. Es ist hochstens noch mit der 
Loschen-Funktion von »Track 18« auszuradieren (auBer man 
gibt es vorher wieder frei). 

Und hier ist die vielleicht wichtigste Routine: 

Schreibschutz 

Was bisher nur mit einem Klebeschild zu bewerkstelligen 
war, findet nun unsichtbar softmaBig auf der Diskette statt. Eine 
Diskette, die mit »Track 18« geschutzt ist, verweigert jeglichen 
Schreibzugriff. Lesen ist weiterhin problemlos moglich. Als 
Kennzeichen steht in der Namenszeile des Directory beim 
Laden nicht mehr 2A, sondern zwei »Kleiner«-Zeichen. 

Der Vollstandigkeit halber befindet sich noch die Anweisung 
Ende 

im Menu. Das Programm beendet sich nach einer Ruckfrage 
selbst mit einem normalen END. Wer mochte, kann statt der 
END-Anweisung den Befehl SYS 64738 einfugen. Damit fin- 
det dann ein Reset statt, und der Computer steht fur weitere 
Aufgaben wieder jungf raulich zur Verf ugung. 

Nach dieser ausfuhrlichen Erlauterung bleibt mir nur noch 
ein Ratschlag: Fur Probelaufe nach dem Eintippen und zum 
Einarbeiten auf jeden Fall eine besondere Probediskette ver- 
wenden, damit bei Eingabefehlern keine wichtigen Daten oder 
Programme zerstort werden. 



Tips zum Tippen 



Die im Programm verwendeten REM-Zeilen dienen nur der 
optischen Gliederung des Listings. Sie werden von keiner 
Sprunganweisung angesprungen, so da(3 man ohne unange- 
nehme Folgen darauf verzichten kann. 

Die folgende »PRINT AT«-Maschinenroutine habe ich dem 
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Oita Becker Buch »64 lntern« entnommen. Sie ist die kurzeste, 
die mir bekannt ist. Im Programm wird sie mit SYS Rx,y aufgeru- 
fen, wobei P=828 (=$033C). 
033C JSR $AEFD prCift auf Komma 

holt numerischen Wert ins X-Register 



033F 
0342 
0343 
0344 
0347 
034A 
034B 
034C 
034D 



JSR 

TXA 

PHA 

JSR 

JSR 

PLA 

TAY 

CLC 

JMP 



$B79E 



$AEFD 
$AEFD 



- 



S ?3 £ 



$FFF0 Cursor setzen 



Allen leidenschaftlichen Programmjerem und Programmver- 
besserern sei gesagt: >Track 18« ist ausbaufahig! Fur diesen 
Zweck habe ich mir Muhe gegeben, das Programm modular 
aufzubauen und zumindest die wichtigsten Routinen wasser- 
dicht zu machen. Das heilBt, vor dem Auf rut m it GOSU B werden 
die benotigten Werte in einige festgelegte Variablen geschrie- 
ben und die Routine gibt ihre Antwort uber andere festgelegte 
Variablen. Jede andere von der Routine benutzte Variable wird 
direkt am Ort des Geschehens neu belegt (Arrays und Pro- 
grammkonstanten ausgenommen). Wer diesem Prinzip treu 
bleibt, wird bei einem Ausbau des Programms keine Probleme 
haben. 

(Andreas Kolbach / ev) 
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REM 
REM 

REM 

REM 

REM 

REM 

REM 

REM 
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<009> 
<122> 

< 223 > 

<122> 

<165> 

<179> 

<129> 

<016> 

<151> 

<188> 



REM 

REM*********** INITIAL ************** 
DATA 32,174,"" ,253, 32,"SEQ", 174,158, "PRG", 32, 
183, "USR" , 158, 104, "REL" , 183, 168 <249> 

DATA"" , 138,24, "SEQ< " ,72,76, "PRG< " ,32,240, 



15 
20 
21 



<154> 
<014> 
<060> 



" USR< " , 253 , 255 , " REL< " 

POKE 53280,6s POKE 53281 ,6s POKE 646,1 

DIM N$(145) ,C*(10) 

U= 1 s P=828 : D*=CHR$ ( ) : SP*= " ESP ACE20 3 " 

:REM 20 SPC 

22 FR*=0*+0*+0*+ M ESPACE 3FRE I ESPACE 3 

23 FOR 1=0 TO 9:FR$=FR$+0$:READ X,Y,TY$(I) 
:P0KE 828+ I, X= POKE 838+ I, Y: NEXT I 

25 GOTO 50000 

34 REM****** E INF ACHES GET ************ 

35 POKE 198,0:WAIT 198, Is GET A*: A=ASC (A$) s 

<052> 
REM********* GETBILD *************** 
B*=""sX=0 
SYS P,CX,CY 

POKE 207,0: REM BLINKPHASE AUS 
POKE 204,0: REM CURSOR EIN 
POKE 198,0:WAIT 198, Is GET A$:A=ASC(A$) 

55 POKE 204 , 1 : REM CURSOR AUS 

56 B=1024+PEEK (21 1 > +PEEK (214) *40 
:POKE B, PEEK (B) AND 127 
IF A=20 AND X>0 THEN CX=CX+(X<L) 
:POKE B+(X<L) ,BC: X=X-1 s B*=LEFT* (B$, X) 

<238> 
IF A=13 THEN A=l: RETURN 
IF A=133 THEN A=2: RETURN 
IF A<G OR A>H THEN 52 
IF X=L THEN B$=LEFT$(B*,L-1) 

62 PRINT A$:B*=B*+A*:X=LEN<B*) 

63 CX=CX-(X<L) :GOTO 51 

99 REM****** INHALT SEITENWEISE 

100 S=0 
110 GOSUB 22000:PRINT" ESPACE3NR. "TAB<5) ; " ERVSON3 

"D*" ERVOFF3" <164> 

120 C=S*16+16*(S>9) :X=0 <146> 

130 C=C+1:IF OQ THEN RETURN <212> 



49 
50 
51 
52 
53 
54 



60 
61 



******* 



<218> 

<036> 

< 049 > 

<151> 

<011> 

RETURN 

<171> 
<002> 
<176> 
<083> 
<065> 
<127> 
<0B1> 

<133> 



GOTO 51 

<175> 
<228> 
< 250 > 
<176> 
<193> 
<163> 
<025> 
<153> 
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140 X=X+1 <20 i> 

150 BL=ASC (RIGHT* <N*(C) ,2) ) +ASC (RIGHT* (N* (C) , 

1 ) ) *256 s 242 > 

160 A=ASC(LEFT*CN*(C) , 1 > ) : A*=TY* < <A AND 7)-5*(( 

A AND 64) >0> ) <122> 

170 PRINT C;TAB(4) " : " ; BL; TAB ( 10) ; MID* (N* (C) ,4, 

16) ; TAB (28); A* <20B> 

180 IF X<16 THEN 130 <236> 

190 RETURN <076> 

199 REM***** DISKNAMEN EINLESEN ****■**♦ <059 > 

200 GOSUB 260 <237> 
205 OPEN 1, 8, 15," I": OPEN 2,8,2, "#" <172> 
210 PRINT#1,"U1CSPACE32ESPACE30ESPACE318ESPACE3 

0" <140> 

220 PRINT#1,"B-PESPACE32ESPACE3144" <159> 
230 DN*="" <146> 

240 FOR 1=1 TO 23:GET#2,A*:DN*=DN*+A*:NEXT I 



<211> 
250 RETURN 

259 REM******** CHECK DISK ************ 

260 OPEN 1,8, 15: CLOSE 1 

265 IF STO0 THEN 280: REM ANGESCHALTET ? 
270 OPEN 1,8,15,"I"8INPUT#1,A 
275 IF A=0 THEN CLOSE 1 : RETURN 

:REM DISK EINGELEGT ? 
280 POKE 53281, 2: PRINT" [CLEAR]" : SYS P,13,12 



< 1 36 > 
<100> 
<214> 
<140> 
<234> 

<201> 



285 
299 
300 



PR I NT " L AUFWERK CSPACE 30K ESP ACE 3? " 
GOSUB 35: POKE 5328 1,6: GOTO 50000 
REM***** DIRECTORY EINLESEN ******* 
PR I NT " ECLEAR , SPACE8 3- ESPACE 3D I RECTORY 
ESPACE2 3E I NLESEN ESPACE 3- " 
320 GOSUB 200:D*=DN*:SYS P,8,4 

: PR I NT " ERVSON 3 " D* " ERVOFF 3 " 
330 S=1:C=0 
340 PRINT#1, ,, U1ESPACE32ESPACE30ESPACE318" ;S 

<109> 
GET#2 , T* : GET#2 , S* : T= ASC < T*+0* ) : S=ASC ( S* ) 

<133> 



<083> 
<001> 
<187> 

<255> 

<189> 
<224> 
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360 
370 
380 
390 
400 
410 

4 

420 
430 
440 
450 

460 
599 
600 



FOR 1=0 TO 7:C=C+1:N*(C>="" 

PRINT#1,"B-P ESPACE 32"; 2+1*32 
GET#2,A* 

IF A*=""THEN N*<C)=FR*:GOTO 420 
N*(C)=A* 



<115> 
<014> 
<004> 
<225> 
<174> 



FOR J=0 TO 28sGET#2,A*:N*(C)=N*(C)+LEFT*(A* 
+0*,l)sNEXT J 

SYS P,0,8:PRINT"NR. "C 

SYS P,9,8:PRINT MID* (N* (C) ,4, 16) 

NEXT I 

IF T THEN 340 
0=CsGOTO 50000 

REM****** FILE SCHUETZEN ********** 
P*= " ECLEAR , SPACES 3 - ESPACE IF I LES ESPACE2 3 
SCHUETZEN ESPACE 3- " 



<183> 
<123> 
<077> 
<132> 
<224> 
<203> 
<097> 



<221> 
<186> 
<147> 
< 027 > 
<018> 



<107> 
<199> 
< 054 > 
<038> 
<248> 
<042> 
SI 



620 C*(3)="FILEESPACE3SCHUETZENERVOFF3" 

630 C*(4)="FILEESPACE3FREIGEBENERV0FF3" 
640 CX=llsCY=ll 

650 GOSUB 18000 

670 CX=0sCY=15sSYS P,CX ,CYsPRINT"NAMEESPACE3DES 

ESPACE 3F I LES ESPACE 3: ESPACE3 " 

<099> 

680 CX=17:L=16:G=32:H=127sBC=46:G0SUB 50 

690 ON A GOTO 700,50000 

700 L=LENCB*) 

710 T=i8sS=l:X=-lsG0SUB 260 

720 OPEN 1,8,15:0PEN 2,8,2, n #" 

730 Tl=TsSl=S 

740 PRINTttl , "Ul ESPACE 32 ESPACE 30 ESPACE 3 18" 

<047> 
750 GET#2 , T* : GET#2 , S* : T= ASC ( T*+0* ) s S=ASC ( S* ) 

<022> 

760 FOR 1=0 TO 7:C*="" <024> 

770 PRINT#1,"B-PESPACE 32"; 2+32*1 <160> 

780 GET#2,A*:IF A*=""THEN 810 <246> 
790 PRINT#1,"B-PESPACE 32"; 5+32*1: FOR J=l TO L 

:GET#2,A*:C*=C*+A*:NEXT J <031> 

800 IF C*=B*THEN X=I:I=7 <115> 

810 NEXT I <248> 
820 IF T=0 AND X<0 THEN P*="FILE ESPACE 3N I CHT 

ESPACE 3GEFUNDEN ESPACE 3! !"sGOTO'930 <11B> 

830 IF X<0 THEN 730 <072> 

B40 P*= "- ESPACE 30K ESPACE 3-" <169> 
850 PRINT#1,"U1ESPACE32ESPACE30ESPACE318";S1 

<158> 

860 PRINT#l,"B-PESPACE32";X*32+2 <009> 

870 GET#2,A*:A=ASC(A*) <153> 

880 IF F=l THEN A=A OR 64 <028> 

890 IF F=2 THEN A=A AND 191 <087> 
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900 PRINT#l,"B-P[SPACE32";X*32+2 
910 PRINT#2,CHR*(A) ; 



<049> 
<027> 



* 



920 PRINT#1,"U2[SPACE32[SPACE30[SPACE318";S1 

<229> 
930 SYS P, 0,1 8: PR I NT P*: GOSUB 35: GOTO 50000 

<17B> 

999 REM**** DIR- ZURUECKSCHRE I BEN ***** <188> 

1000 PR I NT" [CLEAR, SPACE7 3- [SPACE 3D I RECTORY 

[ SP ACE 3 S CHRE I BEN C SP ACE 3 - " < 253 > 

1010 GOSUB 260 <026> 

1020 SYS P,10,12:PRINT"SIND[SPACE3SIE[SPACE3 

S I CHER [SPACE 3?" <044> 

1030 CY=15:T30SUB 20000 <119> 

1040 ON F GOTO 1050,50000 <091> 

1050 IF Q=0 THEN SYS P,5, 12: PRINT" [RVSON3KEINE 

[SPACE3FILES[SPACE3EINGELESEN[SPACE3! ! ! 



[RVOFF3": GOSUB 35: GOTO 50000 



C036> 



1060 C=0:T=18:S=1:A=T:B=S+3:A*=LEFT*(FR$,2) 

<201> 
1070 OPEN 1,8,15 <248> 

1080 OPEN 2,8,2,"#" - <09B> 

1090 PR I NT#1," B-P [SPACE 32 [SPACE 30" <160> 

1100 IF C*8+8>=Q THEN A=0:B=255 <044> 

1110 PRINT#2,CHR$CA) ;CHR*<B) ; <121> 

1120 FOR 1=1 TO 7:J=C*8+I <060> 

1130 PRINT#2,N$(J);A*; <076> 

1140 NEXT I <067> 

1150 PRINT#2,N$(J+1) ; <155> 

1160 PRINT#1,"U2 [SPACE 32 [SPACE 30 ";T;S <203> 
1170 C=C+l:A=T:S=S+3:B=S+3 <247> 

1180 IF S=21 THEN 1220 <255> 

1190 IF S>18 THEN S=S-17 <180> 

1200 IF B>18 THEN B=B-17 <139> 

1210 IF C*8<Q THEN 1090 <229> 

1220 GOTO 50000 <070> 

1499 REM****** DISKNAMEN AENDERN ****** <254> 

1500 PRINT" [CLEAR,SPACE4 3-CSPACE3DISKETTENNAMEN 
[SPACE2 3AENDERN [SPACE 3-" < 194> 

1510 GOSUB 200:SYS P,6,5:PRINT" [RVSON3"DN$" 

[RVOFF3" <170> 

1520 SYS P,0,10:PRINT"NAME: CSPACE3 

<030> 

1530 PRINT"CDOWN,SPACE2 3ID: CSPACE3-." <016> 
1540 SYS P,12,22:PRINT"F1CSPACE3=CSPACE3MENUE M 

<092> 
1550 CX=6: CY= 10 : L= 16 :BC=46s 8=32: H= 127: GOSUB 50 

:QN A GOTO 1560,1650 <229> 

1560 IF B*=" "THEN DN$=LEFT$ <DN*,LEN (DN$) -5) 

:GOTO 1580 <074> 

1570 DN*=B£:FOR 1=1 TO 18-LEN(DN*) 

: DN*=DN$+CHR$ ( 160) : NEXT <204> 

1580 CX=6:CY=12:L=2: GOSUB 50 <054> 

1590 ON A GOTO 1600,1650 <086> 

1600 DN*=DN$+B$ <116> 

1610 PRINT#1,"U1CSPACE32CSPACE30CSPACE31BCSPACE3 

0" <010> 

1620 PRINT#1,"B-PCSPACE32CSPACE3144" <029> 
1630 PRINT#2,DN*; <075> 

1640 PRINT#1,"U2CSPACE32CSPACE30CSPACE318CSPACE3 

0" <041> 

1650 GOTO 50000 <246> 

1999 REM***** KOMMENTAR AUF DISK ****** <232> 

2000 PRINT" [CLEAR, SPACES 3- [SPACE 3KOMMENTAR 
[SPACE3AUF[SPACE3DISKETTE[SPACE3- n <136> 

2010 C*(3)="LESEN[RV0FF3" <203> 

2020 C*(4)="SCHREIBEN[RVOFF3" <242> 

2030 CX=15:CY=13 <148> 

2040 GOSUB 18000 <133> 

2050 SYS P T 7 , 1 z PR I NT " **jtjt***j****JtJ*Jt**^*Jtjt*JtJ* " 

<127> 
2060 SYS P T 7 , 20 s PR I NT " ■*>^A*>>>-*>>A*-*-*-*-»-»-*>-»-* " 

<138> 
2070 GOSUB 260: OPEN 1,8, 15: OPEN 2,8,2, ,, #" 

:REM LESEN <227> 



2080 PRINT#1,"U1[SPACE32[SPACE30[SPACE318[SPACE3 

0" <194> 

2090 PRINT#1,"B-P[SPACE32[SPACE3175" <249> 
2100 FOR 1=1 TO 4:C*CI>="" <242> 

2110 FOR J=l TO 20:GET#2,A$:C*(I)=C:$(I>+LEFT*(A 

*+" [SPACED" ,1):NEXT J, I <151> 

2120 IF F=2 THEN 2140 <115> 

2130 CY=12:F0R 1=1 TO 4:SYS P,8,CY:PRINT C$ ( I ) 

:CY=CY+2: NEXT: GOTO 2270 <060> 

2140 SYS P,0,12:REM SCHREIBEN <153> 

2150 FOR 1=1 TO 4:PRINT"[SPACE73>"C*(I> "<[D0WN3" 

:NEXT ' <150> 



2160 CX=8:CY=12: J=l <079> 

2170 L=20:BC=32:G=32:H= 127: GOSUB 50 <074> 
2180 ON A GOTO 2190,2280 <171> 

2190 IF LEN(B*)THEN B*=B$+LEFT* <SP$,20-LEN (B$) ) 

:C*(J)=B* <081> 

2200 CX=8:CY=CY+2: J=J+1 <128> 

2210 IF J<5 THEN 2170 <216> 

2230 PR I NT# 1 , " U 1 [SPACE 32 [SPACE 30 [SPACE 318 [SPACE 3 

0- <120> 

2240 PRINT#1,"B-P[SPACE32[SPACE3175" <143> 

2250 PRINT#2,C*<1) ; C* (2) ; C$ (3) : C$ <4) ; <094> 
2260 PRINT#1,"U2[SPACE32[SPACE30[SPACE318CSPACE3 

0» <151> 
2270 SYS P,B,21:PRINT"-[SPACE30K[SPACE3-" 

: GOSUB 35 <001> 

2280 FOR 1=1 TO 4: C$ ( I ) ="": NEXT: GOTO 50000 <026> 

2499 REM**** DISK COMMAND *********** <251> 

2500 GOSUB 260: OPEN 1,8,15 <242> 
2510 PRINT" [CLEAR!": SYS P, 12,23 

:PRINT"F1[SPACE3=[SPACE3MENUE" <212> 

2520 PRINT" [HOME, SPACE83-[SPACE3DISK[SPACE3 

COMMAND [SPACE 3SENDEN -":C=0:Y=0 <134> 

2530 PRINT" [DOWN 3 > [SPACE 3"; :Y=Y+1 <203> 

2540 CX=2: CY=PEEK (214) : BC=32: G=32: H=127: L=76 

: GOSUB 50: ON A GOTO 2560,2550 <013> 

2550 GOTO 50000 <125> 

2560 PRINT#1,B*; <160> 

2570 INPUT#1,A,B$,B,C <165> 

2580 PRINT:PRINT"[DOWN3"A;B$;B;C <188> 

2590 IF Y<5 THEN 2530 <101> 

2600 GOSUB 35: GOTO 2510 <178> 

2999 REM**** DIRECTORY VON DISK ******* <242> 

3000 GOSUB 260:OPEN 2,8, 15, " I " : OPEN l f 8,0, ,, * H 

<000> 
3010 C=-1:O$=CHR*(0) :S$=CHR*(34) <039> 

3020 PRINT" [CLE AR3": SYS P, 12,22 

:PRINT"F1[SPACE3=[SPACE3MENUE" <211> 

3030 X=0:PRINT"CHOME,SPACE3NR. [SPACE2 3-[SPACE3 

ALTE [SPACE 3RE I HENFOLGE [SPACE 3- [DOWN 3 " < 204 > 
3040 IF C=-l THEN GET#1 , A$,B$: X=-l <038> 

3050 GET#1,A$,B$ <013> 

3060 GET#1,A*,B*:X=X+1:C=C+1 <219> 

3070 B=ASC ( A$+0$ ) +ASC ( B$+0* ) *256 < 035 > 

3080 PRINT C" : "TAB (5) ;STR$(B) ; TAB (10) ; <164> 
3090 GET#1,B*:IF ST THEN 3190 <133> 

3100 IF B*OS*THEN 3090 <103> 

3110 GET#1,B$:IF B*OS$THEN PRINT B$;:GOTO 3110 

<040> 
3120 GET#1,B$:IF B$=" [SPACE 3" THEN 3120 <081> 
3130 C$="" <163> 

3140 C$=C$+B$:GET#1,B$: IF B*<>""THEN 3140 <227> 
3150 PRINT TAB (27); " [SPACE2 3"LEFT* (C*,5) <136> 
3160 GET A*: IF A$=" [Fl 3 "THEN 3230:REM Fl <190> 
3170 IF X=16 THEN 3200 <214> 

3180 IF ST=0 THEN 3050 <251> 

3 1 90 PR I NT " [RVSON , SPACE 3BLOCKS [SPACE 3FREE [ SPACE , 

RVOFF3":GOSUB 35: GOTO 3230 <157> 

3200 SYS P,4,20:PRINT"BITTE[SPACE3TASTE[SPACE3 



DRUECKENCSPACE3- - . " 



<0B3> 



3210 SYS P,9,22:PRINT"F1[SPACE3=[SPACE3MENUE" 

"<190> 
3220 GOSUB 35: IF A<>133 THEN 3030 <003> 

3230 GOTO 50000 <040> 

3999 REM******* SCHREIBSCHUTZ ********* <190> 

4000 PR I NT " [CLEAR , SPACE 113- [SPACE 3SCHRE I BSCHUTZ 
[SPACE 1- [DOWN 3" <107> 

4010 GOSUB 200: PRINT" [DOWN, SPACE8 , RVSON 3" DNS" 

[RVOFF3" <15B> 

4020 PRINTttl ,"M-R";CHR*(1) ; CHR* ( 1 ) ; CHR* ( 1 ) <084> 
4030 GET#1 ,A$: IF A*="A"OR A*=""THEN 4130 <046> 
4040 PR I NT " [D0WN4 3D I SKETTE [SPACE 3GESCHUETZ T 

[SPACE 3! " <124> 

4050 PRINT" [DOWN23SOLL[SPACE3DIE[SPACE3DISKETTE 

[SPACE 3FRE I GEGEBEN [SPACE 3WERDEN [SPACE 3? " 

<096> 
4060 CY=18: GOSUB 20000 <091> 

4070 IF F=2 THEN 50000 <070> 

4080 PRINT#1 , "M-W";CHR$(1) ; CHR* ( 1 ) ; CHR* ( 1 ) ; 

CHRS(65) <083> 

4090 PRINT#1 , "B-P [SPACE 32 [SPACE 32" 

: PRINT#2, CHR$ (65) <024> 

4100 PRINT#1 , "B-P [SPACE 32 [SPACE 3 165" 

:PRINT#2,CHR*(50) ;CHR* (65) ; <128> 

4110 FRINTttl , "U2CSPACE32[SPACE30[SPACE318[SFACE3 

0" <217> 

4120 GOTO 4200 <119> 

4130 PRINT" [D0WN4 3D I SKETTE [SPACE 3N I CHT [SPACE 3 

GESCHUETZT[SFACE3 ! " <077> 
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4140 PRINT" [DOWN23SOLL[SPACE3DIE[SPACE3DISKETTE 

[SPACE 36ESCHUETZT [SPACE 3WERDEN [SPACE 3?" < 1 74 > 
4150 CY=1B: GOSUB 20000 <182> 

4160 IF F=2 THEN 50000 <161> 

4170 PRINT#1 , "B-P[SPACE32[SPACE32" 

:PRINT#2,CHR*(66) <106> 

4180 PRINT#1 , "B-P[SPACE32[SPACE3165" 

:PRINT#2,CHR$(60) ;CHR*(60> ; <204> 

4190 PRINT#1,"U2[SPACE32[SPACE30[SPACE318[SPACE3 

0" <041> 

4200 SYS P, 14,23: PR INT"- [SPACE DOK [SPACED-" <147> 
4210 GOSUB 35: GOTO 50000 <047> 

4499 REM**** DIRECTORY BEARBEITEN ***** <051> 

4500 Ft= " [HOME , SPACE6 3- [SPACE 3D I RECTORY [SPACE 3 
BEARBE I TEN [SPACE 3- [DOWN 3 " < 1 9 > 

4510 GOSUB 100: GOTO 4530: REM SEITE 1 NEU <184> 
4520 GOSUB 110: REM SEITE S NEU <086> 

4530 GOSUB 35 <184> 

4540 IF A=133 THEN 50000 <126> 

4550 IF A=17 THEN S=S+1+ (S*16>Q> : GOTO 4520 <136> 
4560 IF A=145 THEN S=S-1- (S=0) : GOTO 4520 <147> 
4570 IF A=134 THEN 5000: REM SORTIEREN <241> 
4580 IF A=135 THEN 6000: REM EINFUEGEN <216> 
4590 IF A=136 THEN 7000: REM LOESCHEN <159> 
4600 GOTO 4530 <094> 

4999 REM********** SORTIEREN ********** <044> 

5000 GOSUB 21000 <027> 
5010 CX=34:CY=7:L=3:G=48:H=57:BC=46: GOSUB 50 

:ON A GOTO 5020,4520 <028> 

5020 F=VAL(B*> <035> 

5030 IF F>Q THEN F=Q <124> 

5040 IF F<1 THEN F=l <072> 

5050 CX=34:CY=9: GOSUB 50: ON A GOTO 5060,4520 

<197> 
5060 R=VAL(B*> <087> 

5070 IF R>Q THEN R=Q <188> 

5080 IF R<1 THEN R=l <136> 

5090 GOSUB 51 10: GOTO 4520 <215> 

5100 REM <229> 

<041> 
<091> 
<079> 
<205> 
<043> 
<243> 
<236> 
<073> 
<243> 
<055> 



- 1 



110 A$=N$(F> 

5120 IF F>R THEN 5160 

5130 FOR I=F TO R-1:REM F<R 

5140 N*(I)=N*(I+1> 

5150 NEXT I: N*(R)=A*: RETURN 

5160 FOR I=F TO R+l STEP-1:REM F>R 

5170 N*(I)=N*(I-1) 

5180 NEXT I :N*(R)=A*: RETURN 

5999 REM********* EINFUEGEN *********** 

6000 A*=" EINFUEGEN": GOSUB 21500 

6010 CX=33:CY=7:L=3: 6=48: H=57:BC=46: GOSUB 50 

:ON A GOTO 6020,4520 <008> 

6020 R=VAL(B$> <027> 

6030 IF R>144 THEN 6010 <058> 

6040 IF R<1 THEN R=l <076> 

6050 SYS P,6,20:PRINT"TEXT[SPACE3DER[SPACE3 

BEMERKUNG [SPACE 3? " < 1 73 > 

6060 SYS P,7,21: PRINT" " <138> 

6070 CX=7:CY=21:L=16:G=5:H=255:BC=45: GOSUB 50 

:ON A GOTO 6080,4520 <115> 

6080 IF B*=""THEN B*=" » <145> 

6090 IF LEN(B$)<16 THEN FOR 1=1 TO 16H_EN(B$) 

: B*=B*+" [SPACE 3 " : NEXT < 230 > 

6 1 00 B$=CHR* ( 1 30 ) +LEFT* ( FR$ , 2 ) +B*+R I GHT$ ( FR* ,11) 

<170> 
6110 IF R>Q THEN 6150 <071> 

6120 IF N$<R)=FRSTHEN N* (R) =B$: GOTO 4520 <111> 
6130 IF N*<Q)=FR*THEN F=Q: N$ (F) =B$: GOSUB 5110 

-■GOTO 4520 <125> 

6140 IF D<145 THEN F=Q+1 : N* (F) =B$: GOSUB 5110 

:GOTO 6170 < 129> 

6150 IF D>136 THEN 6010 <179> 

6160 N*(R)=B* <0B5> 

6170 A=Q+1 <0B1> 

6180 Q=Q+8:IF R>Q TH£N 6180 <001> 

6190 FOR I=A TO Q: IF N* ( I ) = " "THEN N$ ( I > =FR$ 

<224> 
6200 NEXT I <027> 

6210 GOTO 4520 <174> 

6999 REM********** LOESCHEN *********** <196> 

7000 A$= "LOESCHEN": GOSUB 21500 <222> 
7010 CX=33:CY=7:1_=3:G=48:H=57:BC=46: GOSUB 50 

:ON A GOTO 7020,4520 <245> 

7020 F=VAL < B$ ) : R=Q < 1 38 > 

7030 IF F>Q OR F< 1 THEN 7000 <172> 

7040 GOSUB 5110 <239> 

7050. N*(G!)=FR* v <039> 
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7060 A=Q-7:G=0 <056> 

7070 FOR I=A TO Q: IF N$ ( I ) < >FR*THEN G=l <045> 
7080 NEXT I -<142> 

7090 IF G=0 THEN Q=Q-8: N$ (Q+l ) =" " • GOTO 7060 

<014> 
7100 GOTO 4520 <043> 

17999 REM**** ENTSCHEIDUNG VERT ****** <138> 

18000 PRINT P$ <163> 
18010 F=1:SYS P,12,24:PRINT"F1CSPACE3=[SPACE3 



tfENUE " 
18020 SYS 
18030 
18040 
18050 
18060 
18070 
18080 
18090 
18100 



[RVSON 3" 



<146> 
<000> 
<033> 
<215> 
<055> 



IF 
IF 



GOTO 



18110 
18120 
18130 
19999 
20000 
20010 
20020 



P,CX,5:C*(F)= 

PRINT C*(1)C*(3> 

SYS P,CY,7 

PRINT C$(2)C*<4) 

C*(l)=" ,, :C*(2)="" 

GOSUB 35 

IF A=17 THEN F=2:G0T0 18020 
A=145 THEN F=l:GOTO 18020 
A=133 THEN C* (3) =" " : CZ <4) =" 

<107> 
A<>13 THEN 18070 

C*<3)=" M sC*(4)= Mk : 

RETURN 

REM**** ENTSCHEIDUNG HORIZ ****** 

F=l 

C$(F)="[RVSaN3" 

SYS P,10,CY:PRINT C* < 1 > " [SFACE 3JA[SPACE, 
RVOFF3":SYS P , 20, CY: PRINT C* (2) " [SPACEDNEIN 



IF 



<203> 



<209> 
<091> 

< 1 50 > 
50000 

<063> 

< 1 1 > 
<166> 
<173> 
<119> 

< 1 26 > 



[SPACE, RVOFF D" 
20030 C$ ( 1 ) = " " : C* ( 2 ) = " " 

20040 GOSUB 



20050 
20060 
20070 
20080 

20090 
20999 
21000 
NR. 
21010 
21020 
21030 
21040 
21050 
21060 
21070 
21080 



IF A=29 OR A=78 THEN F=2:G0T0 20010 
IF A=157 OR A=74 THEN F=l:GOTO 20010 
IF A=13 THEN RETURN 

IF A=133 THEN C$ ( 1 ) =" " : C* (2) =" " : GOTO 

<043> 



<029> 
<133> 
<139> 
< 034 > 
<0B9> 
<203> 
50000 



<071> 
<054> 



GOTO 20040 

REM****** MASKE SORTIEREN ******* 
PRINT"[H0ME,D0WN3D";TAB<28) ; "BITTE [SPACE] 

<179> 



" 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



TAB (28) 
TAB (28) 
TAB (28) 
TAB (28) 
TAB(2B) 
TAB (28) 



"EINGEBEN" 

" [SPACE9 3" 

"FILE" 

"NR. : [5PACE2 3. 

"[SPACE9 3" 

"NACH: [SPACE 3 - 

" [SPACE9 3" 



> 



<239: 
<188> 



< 230 



• I 



II 



TAB (28) 

TAB (28) ; "SORTIEREN" 
1090 FOR 1=1 TO S: PRINT TAB<28); 
: NEXT: RETURN 



< 098 > 
<218> 
<194> 
<238> 
<179> 

[SPACE113" 

< 073 > 



21499 
21500 

21510 
21520 
21530 
21540 



3> 



REM**** MASKE EINF/LOESCH ******* <04 
PR I NT " [HOME , D0WN3 1 " TAB < 28 ) ; " BEMERKUNG " 

<199> 
PRINT TAB (28); A* <201> 

PR I NT TAB ( 2B ) ; M AN [ SP ACE7 1 " < 065 > 

PRINT TAB (28); "POSIT ION [SPACE 3" <049> 



PRINT TAB (28) 



"NR. : [SPACED. 
<088> 



[SPACED" 



"[SPACE 111" 

<076> 



22000 
22010 
22020 
22030 



< 057 > 
<181> 
<041> 
<159> 



22060 
22080 



21560 FOR 1=1 TO 12:PRINT TAB(28); 

: NEXT: RETURN 
21999 REM**** MASKE LETZTE ZEILE ****** 

PRINT" [CLEAR 1" 

SYS P,0,22 

print" [space 3yyyyyyyyyy" 

PR I NT " [SPACE , RVSON D BL AETTERN [SPACE , RVOFF D " 

<134> 
22040 PR I NT " [SPACE , RVSON DM I T [SPACE DCURSOR [RVOFF D 
"; <242> 

22050 SYS P,14,24:PRINT"F1[SPACED=[SPACEDMENUE"; 

<009> 

SYS P,26,21: PRINT" [SPACE 350^50^0000" <01B> 
SYS P, 26, 22:PRINT" [SPACE, RVSON DF3=S0RTIER 
[RVOFF 3" <065> 

22090 SYS P,26, 23: PRINT" [SPACE, RVSON 3F5=E I NFUEG 

[RVOFF 3" <041> 

22100 SYS P,26,24:PRINT"[SPACE,RVSON3F7=LOESCH 

[SPACE, RVOFF 3"; <044> 

22110 PRINT" [HOME 3"F$: RETURN <224> 

29999 REM********** ENDE ************** <063> 

30000 PRINT" [CLEAR 3" <021> 
30010 SYS P,4,12:PRINT"WOLLEN[SPACE3SIE[SPACE3 

WI RKLICH [SPACE 3BEENDEN [SPACED?" <226> 

30020 CY= 15: GOSUB 20000 <038> 

30030 ON F GOTO 30040,50000 <059> 

30040 PRINT" [CLEAR 3": END <247> 

49999 REM******* HAUPTMENUE *********** <145> 
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40 > 



t 





<034> 
< 1 46 > 
<194> 






24 1 > 



50000 CLOSE 2: CLOSE 1 

50005 PRINT" CCLEAR, SPACES 3;!L££*^CSPACE4 3 

UJtjtjtjtjtjtjtjtjtjtjtjtJ. " < 1 96 > 

50010 PRINT " CSPACE81£rSPACE30CSPACE]SCSPACE4D5 

CSPACE2 3 TRACK [SPACE D 1 8 CSPACE2 3£" < 047 > 
50020 PRINT " CSPACE8DB.HCSPACED1CSPACE4D 

50030 PRINT " CSPACE8 JfiTCSPACEltl" 

50040 PRINT " CSPACE8 1Y&&&T' 
50050 SYS P,13,6:C^(U)= ,, CRVSON3" 

:PRINT"-CSPACE3BYLSPACEDMATANCSPACE3-" 
50060 PR TNT" T SPACE 6 3 .-iMMMii*>>Jli»j«^^^ 

: PR I NT <063> 

50070 PRINT" [SPACE7 3 ,, C$(1> "DIRECTORY [SPACE] 

EINLESENCRVOFF3" <253> 

50080 PRINT" CSPACE73 n C$(2) "DIRECTORY [SPACE! 

BEARBEI TEN CRVOFF ]" < 134 > 

50090 PR I NT " [SPACE7 3 " C* ( 3 ) " NEUES [SPACE 3 

DIRECTORYCSPACE3SCHREIBENCRVOFF3" <211> 
50 1 00 FR I NT " [SPACE7 3 " C$ ( 4 ) " D I RECTORY [SPACE 3 VON 

[SPACE 3D I SK CRVOFF 3 " 
50110 PRINT 



<233> 



/■ 



026 > 



50120 PRINT"[SPACE73"C^(5) "DISK [SPACE 3COMMAND 



[SPACE 3SENDEN CRVOFF 3 " 



<018> 



50130 PRINT" [SPACE7 3"C*<6) "DISKETTENNAMENCSPACE 3 



AENDERN[RVOFF3" 



<077> 



50140 PRINT" CSPACE7D"C*(7) "DISK-KOMMENTARCRVOFF3 

<071> 
50 1 50 PR I NT " [SPACE7 3 " Ct < 8 ) " F I LES CSPACE 3 

SCHUETZEN/FREIGEBENCRVOFF3" <046> 

50160 PRINT" CSPACE7D"C*<9) "SCHREIBSCHUTZ [RVOFF3" 

<056> 
50200 PRINT <117> 

502 10 PRINT" CSPACE6 l .*J^^^^Jtj^*J^^^Jtjkjhjt^ji-j^j^jhjt_**ji^^jt_^ n 

<003> 
50220 PRINT" CSPACE7 3"C$< 10) " [SPACE 3* [SPACE 3ENDE 

<044> 
<094> 
<250> 
<057> 
<080> 
< 087 > 



[SPACE 3* [SPACE , RVOFF 3 " 
50230 SYS P,l 1,3: POKE 207,0: POKE 204,0 
50240 GOSUB 35: POKE 204, 1 : C$ (U) =" " 
IF A=17 THEN U=1-(U<10)*U 
IF A=145 THEN U=U-1-10* (U=l ) 
IF A<>13 THEN 50050 



50250 
50260 
50270 
50280 

2000 , 600 , 4000 , 30000 
50290 BOTO 50230 



ON U GOTO 300,4500,1000,3000,2500,1500, 



<163> 
<185> 





Meister 



Urn leichter mit der Diskette arbeiten 
zu konnen, bendtigen Sie nur diese 
kleine Basic-Erweiterung. 



Die hier vorgestellte Basic-Erweiterung umfaBt 24 neue Be- 
fehle, die es ermoglichen, den Umgang mit dem Diskettenlauf- 
werk sowohl im Direktmodus als auch im Programm erheblich 
zu vereinfachen. Autostart, menugesteuertes Laden von Pro- 
grammen sowie das Speichern von Maschinenprogrammen 
sind nur 3 der vielen Moglichkeiten dieses Programms. 

Die Befehle im Einzelnen: 




Der Fehlerkanal des Laufwerks wird gelesen und auf dem Bild- 
schirm angezeigt. 

@S 

Der Fehlerkanal wird gelesen und die Nummer des Fehlers in 

Speicherstelle 251 abgelegt. Die Abfrage erfolgt nun mit 

PRINT PEEK (251). Die Bedeutung der Fehlemummern ist aus 

dem Floppy-Bedienungshandbuch Seite 36 bis 39 zu ent- 

nehmen. 

$ 

Das Inhaltsverzeichnis der Diskette wird auf dem Bildschirm 
seitenweise angezeigt, das heiBt daB die Ausgabe nach 23 
Zeilen stoppt und das Programm eine Menuzeile ausgibt. Nun 
hat man die Moglichkeit die folgenden Zeilen zu listen oder die 
Ausgabe zu beenden. 

$$ 

Dieser Befehl erlaubt es auf einfachste Art ein Programm zu la- 
den ohne den Namen des Programms einzugeben. Hier wird 
das Inhaltsverzeichnis der Diskette gelistet, wobei jeder Zeile 
eine Programmnummer vorangestellt ist. Sind 20 Zeilen aus- 
gegeben, so erscheint eine Menuzeile. Man kann nun die 
nachste Seite listen, die Ausgabe beenden, oder ein Pro- 
gramm laden. Druckt man nun die Taste fur »Laden«, so ist nur 
die Nummer des Programms einzugeben, »RETURN« zu 
drucken und das jeweilige Programm wird in den Basic- 
Speicher geladen. Es besteht die Moglichkeit durch ein der 
Programmnummer nachgestelltes &-Zeichen einen Autostart 
durchzufuhren. 

# 

Die aktuelle Gerateadresse wird auf dem Bildschirm angezeigt. 

Sie wird beim Start des Programms automatisch auf 8 gesetzt. 

#9 

Andern der Gerateadresse. Alle folgenden Befehle beziehen 

sich auf Gerateadresse 9. 

#8 

Alle Befehle beziehen sich wieder auf Gerateadresse 8. 
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#E 

Die Befehlserweiterung wird ausgeschaltet. Dies ist notwen- 
dig, wenn man ein anderes Maschinenprogramm in den Spei- 
cher ab $C000 laden will, ohne da!3 das System aussteigt. Alle 
Zeiger werden wieder in ihre Ausgangsposition gesetzt. 

£"Name" 

Die Startadresse des jeweiligen Programms wird auf dem Bild- 
schirm angezeigt. Dieser Befehl kann bei unbekannten Start- 
adressen von Maschinenprogrammen eine nutzliche Hilfe 
sein. 

%"Name" 

Das Programm mit dem angegebenen Namen wird geladen, 
Dieser Befehl ladt ein Programm immer an die Adresse, die im 
Programm abgespeichert ist. Es lassen sich so auch Maschi- 
nenprogramme laden. 

&"Name" 

Autostart-Befehl. Das Programm wird geladen und danach 
selbstandig gestartet. Dies ist nur mit Programmen moglich, 
die im Basic-Speicher abgelegt sind. 

!"Name" 

Das im Speicher befindliche Basic-Programm wird unter dem 
angegeben Namen auf Diskette gespeichert. 

!"Name",S,E 

Dieser Befehl ermoglicht das Speichern von Maschinenpro- 
grammen, wobei »S« die Startadresse und »E« die Endadresse 
ist. Es muB beachtet werden, daB »E« die Endadresse + 1 des 
abzuspeichernden Bereichs ist. 



Der Validate-Befehl wird ausgefuhrt. 

-I 

Initialisiert eine Diskette. 

*-N"Name,ID" 

Formatiert eine Diskette. 

-N"Name" 

Reformatiert eine Diskette ohne Anderung der ID. Dies funktio- 
niert jedoch nur bei bereits formatierten Disketten. 

-C"nf=af" 

Das File »af« wird mit dem Namen »nf« kopiert. 

-C"nf=file1,file2" 

Es besteht die Moglichkeit maximal 4 sequentielle Datenfiles 
zu einem mit neuem Namen zusammenzufassen. 

-R"nfn=afn" 

Das File mit dem Namen »afn« wird zu »nfn« umbenannt. 

— S"file" 

Das File mit dem Namen »file« wird geloscht. 



-S"file1,file2,..." 

Es konnen auch mehrere Files gleichzeitig geloscht werden. 

-S"fi*" 

Es werden alle Files geloscht, die mit dem Buchstaben »fi« 
beginnen. 

Alle Files einer Diskette werden geloscht. 



Eingabe des Programms 

Das Basic-Programm bildet jeweils von fiinf DATA-Zeilen eine 
Prufsumme. Ist diese fehlerhaft, so stoppt das Programm und 
zeigtdiejeweilige Blocknummerauf dem Bildschirm an. Waren 
die Prufsummen aller 20 Blocks fehlerfrei, stoppt das Pro- 
gramm mit dem Hinweis die richtige Diskette einzulegen. Nach 
Drucken einer Taste wird das Maschinenprogramm unter dem 
Namen »Disk-Master/M« auf Diskette gespeichert. Urn das La- 
den und Starten zu erleichtern, muB der Basic-Lader eingetippt 
werden. 

Laden des Programms 
mit Basic-Lader: 

LOAD"Disk- Master", 8. Ist die Ready-Meldung erfolgt, soistein- 
fach RUN einzugeben und das Maschinenprogramm wird ge- 
laden und gestartet. 
direkt: 

LOAD"Disk-Master/M",8,1. Ist die Ready-Meldung erfolgt, muB 
das Programm mit SYS 49152 gestartet werden. 

Allgemeine Hinweise zur Programmbenutzung: 
Will man im Rahmen eines Basic- Programmes einen Befehl 
hinter einer »IF. JHEN« Abfrage benutzen, so ist vor dem Be- 
fehl ein Doppelpunkt zu setzen, da sonst eine Fehlermeldung 
ausgegeben wird. 

Sollen die Befehle — N, — R, — S, — C im Programm verwendet 
werden, so sollten die nachfolgenden Parameter in einer 
String-Variablen gespeichert sein. 

Will man im AnschluB an »Disk-Master« noch andere Program- 
me abspeichem, so darf die Startadresse des folgenden Pro- 
gramms nicht kleiner als $C900 sein. 

(Armin Haas/rg) 



100 
110 

120 
130 



REM ******** BASIC-LADER ******** <138> 
IF F=l THEN SYS 47152: NEW <072> 

PR I NT " CDOWN 3LOAD I NG C SPACE 3D I SK-MASTER/M " 

<004> 
F=l:LOAD"DISK-MASTER/M",S f 1 <029> 



Befehlsubersicht »Disk-Master« 



@ 


Fehlerkanal lesen und anzeigen 




@s 


Fehlerkanal lesen und speichern 




$ 


Inhaltsverzeichnis der Diskette anzeigen 




$$ 


Meniigesteuertes Laden von Programmen 




# 


Aktuelle Gerateadresse abfragen 




#9 


- Gerateadresse = 9 




#8 


Gerateadresse = 8 




#E 


Programm ausschalten 




£"Name" 


Startadresse ermitteln und anzeigen 




%"Name" 


Programm absolut laden 




&"Name" 


Programm laden und starten 




!'*Name" 


Programm speichern 




!"Name"AB 


Maschinenprogramm speichern 




-V 


Validate-Befehl ausfuhren 




-1 


Initialisiert Diskette 




-N"Name,ID" 


Formatiert Diskette 




-fsTName" 


Reformatiert Diskette 




-C"nf=af" 


Kopiert File 




^C"nf=file1,file2" 


Verkettet SEQ-Files (max. 4) 




^R"nfn=afn" 


File umbenennen 




-S"ftle" 


File Ibschen 




~S"ftle1,file2,..." 


Mehrere Files gleichzeitig loschen 




— S'fi*" 


Alle Files mit Anfangsbuchstaben »fi« werden 






geloscht 




_ S" * " 


Alle Files der Diskette werden geloscht 
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Disketten-Meister 



REM ************************* 

1 REM * * 

2 REM * — DISK-MASTER — * 

4 REM * * 

5 REM * 19B4 ARM IN HAAS * ** 

6 REM * # 

7 REM ************************* 

8 REM 

10 REM PRUEFSUMMENTEST 

20 N=l 

30 S=0 

40 FOR 1=1 TO 80 

50 READ X:IF X=-l THEN 80 

60 S=S+X 

70 NEXT 

80 READ F: IF FOS THEN 120 



<169> 

< 228 > 
<189> 
<231> 

< 1 66 > 
<233> 
<176> 
<151> 
<048> 
<069> 
<083> 

< 225 > 

< 203 > 
<150> 
<200> 

< 025 > 



90 PRINT "PRUEFSUMME [SPACE 3BL0CK"N" [SPACE 30K! " 

<248> 
100 IF X=-l THEN 140 <017> 

110 N=N+1:G0T0 30 <189> 

1 20 PR I NT " FEHLER C SPACE DIN [SPACE 3BLOCK " N : END 

<021> 
130 REM MASCHINENPROGRAMM WIRD AUF DISKETTE SES 

PE I CHERT <174> 

140 PRINT" [DOWN JDISKETTECSPACEDEINLEGENCSPACE3 

UND [SPACE 3TASTE [SPACE 3DRUEKEN ! " < 1 8 1 > 

150 WAIT 198,1 <039> 

160 PRINT" CDOWNDPROGRAMMCSPACE3WIRDCSPACE3AUF 

[SPACE 3DISK [SPACE UGESPEI CHERT" 

:PRINT"CDOWN3BITTECSPACE3WARTEN! " <245> 
170 OPEN 1,8,1,"DISK-MASTER/M" <075> 

180 PRINT#l,CHR$(0);sREM ADRESSE LOW <239> 
190 PRINT#1,CHR*(192); s REM ADRESSE HIGH <146> 
200 RESTORE <084> 

210 FOR 1=1 TO 1585 <246> 

220 READ X:IF X>255 THEN 240 <098> 

230 PRINT#1,CHR*(X); <134> 

240 NEXT I <187> 

250 CLOSE 1 <203> 

260 PR I NT " [DOWN JFERT I GARAGED!": END <143> 
495 REM DATAS <236> 

500 DATA 169,0,141,32,208,141,33,208,169,15,141, 

134,2,169,74,162 <017> 

510 DATA 56,160,192,32,26,192,32,45,192,96,133, 

253,134,251,132,252 <134> 

520 DATA 160,0,177,251,32,210,255,200,196,253, 

208,246,96, 169, 101 , 141 <236> 

530 DATA 8,3,169,194,141,9,3,96,147,17,42,42,42, 

42,42,42 <173> 

540 DATA 42,42,42,42,42,32,32,68,73,83,75,32,45, 

45,32,77 <182> 

545 DATA 8514: REM PRUEFSUMME BLOCK 1 <230> 
550 DATA 65, B3, 84, 69, 82, 32, 32, 42, 42, 42, 42, 42, 42, 

42,42,42 <186> 

560 DATA 42,42,17,29,29,29,29,29,29,29,29,29,29, 

40,67,41 <225> 

570 DATA 32,49,57,56,52,32,32,65,82,77,73,78,32, 

72,65,65 <237> 

580 DATA B3, 17, 17, 18,32,32,60,70,49,62,32,87,69, 

73,84,69 <245> 

590 DATA 82,32,32,32,60,70,51,62,32,69,78,68,69, 

32,32,146 <032> 

595 DATA 4084 s REM PRUEFSUMME BLOCK 2 <023> 



600 DATA 8,169,1,174,160,192,160,15,32,186*255, 

96,169,0,32,189 <044> 

610 DATA 255,32,192,255,162,1,32,198,255,96,32, 

207,255,32,210,255 <190> 

620 DATA 165,144,240,246,32,204,255,169,1,32, 

195,255,96,169,36,133 <003> 

630 DATA 251,169,251,133,187,169,0,133,188,169, 

1 , 133, 183, 173, 160, 192 < 1 12> 

640 DATA 133,186,169,96,133,185,32,213,243,165, 

186,32, 1B0,255, 165, 185 <182> 

645 DATA 11729: REM PRUEFSUMME BLOCK 3 <126> 
650 DATA 32,150,255,169,0,133,144,96,160,3,132, 

251,32,165,255,133 <213> 

660 DATA 252,164,144,208,56,32,165,255,164,144, 

208,49,164,251 ,136,208 <190> 

670 DATA 233,166,252,32,205,189,169,32,32,210, 

255,32,165,255,166,144 <143> 

680 DATA 208,27,170,240,6,32,210,255,76,27,193, 

169,13,32,210,255 <199> 

690 DATA 164,254,192,22,240,11,200,132,254,160, 



700 DATA 96,169,0,133,254,169,30,162,130,160, 

192,32,26,192,32,228 <019> 

710 DATA 255,240,251,201,133,240,7,201,134,240, 

15,76,78,193,169,147 <124> 

720 DATA 32,210,255,169,0,133,254,76,57,193,169, 

13,32,210,255,169 <045> 

730 DATA 23,32,210,255,76,61,193,32,161,192,169, 

1,162,255,160,159 <050> 

740 DATA 32,189,255,76,165,193,32,161,192,32,87, 

226 , 1 65 , 1 87 , 56 , 233 < 1 40 > 

745 DATA 11234: REM PRUEFSUMME BLOCK 5 <219> 
750 DATA 2,133,187,160,0,165,253,145,187,200, 

169,58,145,187,165,183 <184> 

760 DATA 24,105,2,133,183,32,192,255,169,1,32, 

195,255,96, 165,251 <035> 

770 DATA 56,233,48,133,251,169,0,160,10,24,101, 

251,136,208,250,133 <116> 

780 DATA 251,165,252,56,233,48,24,101,251,133, 

251,96,32,161,192,32 <142> 

790 DATA 172,192,76,186,192,169,147,32,210,255, 

169,0,133,254,32,205 <220> 

795 DATA 11294: REM PRUEFSUMME BLOCK 6 <021> 
800 DATA 192,76,248,192,32,161,192,32,172,192, 

32,207,255,133,251,32 <191> 

810 DATA 207,255,133,252,32,207,255,165,144,240, 

249,32,196,192,76,174 <087> 

820 DATA 193,169,228,141,8,3,169,167,141,9,3,96, 

169,0,174,160 <218> 

830 DATA 192,32,205,189,169,13,32,210,255,96, 

169,2,174,160,192,160 <209> 

840 DATA 2,32,186,255,96,165,183,166,187,164, 

188,32,189,255,32,192 <248> 

845 DATA 11612: REM PRUEFSUMME BLOCK 7 <066> 
850 DATA 255,162,2,32,198,255,32,207,255,133, 

25 1 , 32 , 207 , 255 , 1 33 , 252 < 009 > 

860 DATA 32,204,255,169,2,32,195,255,96,32,26, 

194,32,87,226, 169 <103> 

870 DATA 0,133,251,133,252,32,46,194,165,252, 

166,251,32,205,189,169 <036> 

880 DATA 13,32,210,255,96,32,115,0,201,36,240, 



73,201,64,240,94 



<025> 



890 DATA 201,95,240,53,201,35,240,105,201,38, 

240,36,201,37,240,23 <175> 

895 DATA 11225: REM PRUEFSUMME BLOCK 8 <117> 
900 DATA 201,92,240,10,201,33,240,36,32,121,0, 

76,231,167,32,115 <081> 

910 DATA 0,32,73,194,76,174,167,32,115,0,32,69, 

195,32,174,167 ' <042> 

920 DATA 32,115,0,32,133,195,76,174,167,76,16, 

195,32,115,0,32 <036> 

930 DATA 156,195,76,174,167,32,115,0,201,36,240,' 

6,32,213,193,76 <151> 

940 DATA 174,167,32,115,0,76,212,195,32,115,0, 

76 , 174 , 167 , 32 , 1 15 < 1 56> 

945 DATA 8343: REM PRUEFSUMME BLOCK 9 <127> 
950 DATA 0,201,83,240,6,32,204,193,76,174,167, 






8,193,76,200 



<166> 



~r-> 



960 DATA 194,32,115,0,240,24,201,69,240,32, 

158,183,224,8,240 
970 DATA 19,224,9,240,15,224,1,240,11,162,11, 



<162> 



55, 164,32, 1 



<009> 



2,208,189,32,66,246 
695 DATA 11742: REM PRUEFSUMME BLOCK 4 



<046: 
<172: 



980 DATA 194,76,174,167,142,160,192,76,174,167, 

32,1,194,76,200,194 <117> 

990 DATA 32,115,0,201,86,240,26,201,73,240,22, 

201,82,240,27,201 <169> 

995 DATA 9754: REM PRUEFSUMME BLOCK 10 <224> 
1000 DATA 83,240,23,201,67,240,19,201,78,240,15, 

32,121,0,76,231 <146> 

1010 DATA 167,141,255,159,32,119,193,76,200,194, 

133,253,32,115,0,32 <119> 

H 195,96,174,160,192,160 <210! 

1030 DATA 1,32,186,255,32,87,226,169,0,32,213, 

255,144,3,76,249 <159> 

1040 DATA 224,134,45,132,46,32,183,255,41,191, 

240,5,162,29,76,55 <007> 

1045 DATA 9948: REM PRUEFSUMME BLOCK 11 <025> 
1050 DATA 164,96,164,56,133,51,132,52,165,45, 

164,46,133,47,132,48 <077> 

1060 DATA 133,49,132,50,96,174,160,192,160,0,32, 

186,255,32,87,226 <081> 

1070 DATA 169,0,166,43,164,44,32,89,195,76,113, 

168,174,160,192,32 <106> 

1080 DATA 186,255,32,87,226,32,121,0,240,39,32, . 

253, 174,32, 138, 173 <094> 

1090 DATA 32,247,183,165,20,133,251,165,21,133, 
252,32,253,174,32,138 <243> 
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1095 DATA 9660: REM PRUEFSUMME BLOCK 12 <067> 
1100 DATA 173,32,247,183,169,251,166,20,164,21, 

134,253,132,254,76,95 <019> 

1110 DATA 225,76,89,225,169,0,133,253,169,199, 

133,254,169,0,141,250 <244> 

1120 DATA 198,141,251,198,141,252,198,141,253, 

198,169,147,32,210,255,32 <197> 

1130 DATA 205,192,160,3,132,251,32,165,255,133, 

252,164,144,208,117,32 <073> 

1140 DATA 165,255,164,144,208,110,164,251,136, 

208,233,166,252,32,205,189 <250> 

1145 DATA 12998: REM PRUEFSUMME BLOCK 13 <174> 
1150 DATA 169,32,32,210,255,32,165,255,166,144, 

20B, 88, 170,240,9,32 <219> 

1160 DATA 210,255,32,123,196,76,21,196,169,13, 

32,210,255,152,160,0 <212> 

1170 DATA 145,253,76,158,196,169,18,32,210,255, 

32, 180, 197, 169,0, 174 <052> 

1180 DATA 250,198,232,142,250,198,32,205,189, 

169,146,32,210,255,169,32 <201> 

1190 DATA 32,210,255,169,45,32,210,255,169,32, 

32,210,255,165,253,24 <039> 

1195 DATA 11628s REM PRUEFSUMME BLOCK 14 <214> 
1200 DATA 105,17,144,5,164,254,200,132,254,133, 

253,169,0,141,252,198 <098> 

1210 DATA 160,2,208,128,32,11,197,32,66,246,96, 

201,34,208,16,174 <174> 

1220 DATA 253,198,240,5,162,0,76,139,196,162,1, 

142,253,198,96,174 <001> 

1230 DATA 253, 198,240,250, 172,252, 19B, 200, 140, 

252.198.145.253.96.173.250 <094> 
1240 DATA 198,201,20,240,3,76,53,196,169,37,162, 

203,160,197,32,197 <062> 

1245 DATA 11 941: REM PRUEFSUMME BLOCK 15 <007> 
1250 DATA 196,32,228,255,240,251,201,133,240,30, 

201 , 134,240,71 ,201 , 135 <224> 

1260 DATA 240,85,76,177,196,133,60,134,61,132, 

62,160,0,177,61,32 <226> 

1270 DATA 210,255,200,196,60,208,246,96,169,147, 

32,210,255,169,0,141 <179> 

1280 DATA 250,198,141,251,198,141,252,198,133, 

253, 169, 199, 133,254, 160,0 <099> 

1290 DATA 169,32,153,0,199,200,208,250,160,0, 

153,0,200,200,192,90 <019> 

1295 DATA 12304: REM PRUEFSUMME BLOCK 16 <053> 
1300 bATA 208,248,76,53,196,32,119,196,76,174, 

167,169,23,162,240,160 <239> 

1310 DATA 197,32,197,196,76,168,196,169,22,162, 

7,160,198,32,197,196 <224> 

1320 DATA 32,119,196,169,0,133,251,133,252,133, 

253 , 32 , 207 , 255 , 56 , 233 < 225 > 

1330 DATA 48,133,251,32,207,255,201,38,208,4, 

133,253,169,13,201,13 <123> 

1340 DATA 208,7,169,0,133,252,76,98,197,56,233, 

48,133,252,32,207 <069> 

1345 DATA 1 121 B: REM PRUEFSUMME BLOCK 17 <107> 
H 136,208,250,24,101,252 <227> 

1360 DATA 133,251,169,0,133,252,164,251,24,105, 

17,144,5,166,252,232 <205> 

1370 DATA 134,252,133,251,136,208,241,165,252, 

24.105.199.133.252.177.251 <220> 
1380 DATA 166,251,232,208,5,164,252,200,132,252, 

164,252,32,189,255,165 <131> 

1390 DATA 253,201,38,240,17,174,160,192,160,1, 

32,186,255,32,87,195 <202> 

1395 DATA 12680: REM PRUEFSUMME BLOCK 18 <162> 
1400 DATA 32,114,195,76,174,167,174,160,192,160, 

0,32, 186,255,32, 144 <009> 

1410 DATA 195,76,174,167,173,250,198,201,9,208, 

5,169,1,141,251,198 <244> 

1420 DATA 173,251,198,208,5,169,48,32,210,255, 

96,17,18,60,70,49 <102> 

1430 DATA 62,32,87,69,73,84,69,82,32,60,70,51, 

62,32,69,78 <079> 

1440 DATA 68,69,32,60,70,53,62,32,76,65,68,69, 

78,146,17,13 <139> 

1445 DATA 8358: REM PRUEFSUMME BLOCK 19 <172> 
1450 DATA 145,157,157,157,157,157,32,32,32,32, 

157, 157, 157, 157, 17,32 <070> 

1460 DATA 32,32,32,157,157,157,157,78,85,77,77, 

69,82,32,68,69 <070> 

1470 DATA 83,32,80,82,79,71,82,65,77,77,83,63, 

32,13,-1 <212> 

1475 DATA 4015: REM PRUEFSUMME BLOCK 20 <180> 
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Sicher kennen auch Sie das Problem: 



»OPEN1,8,15,"S:xyz*"« und schon ist 
es passiert! Wie leicht loscht man un- 




beabsichtigt ein 
Datei von der Diskette. 



ramm 



• • 



er eine 



Das Programm Fileproject 64 sorgt dafur, daB Ihnen so et- 
was nicht mehr passieren kann. Mit ihm lassen sich aile Filety- 
pen der Floppy 1541 vorm Scratchen schutzen. Naturlich 
kann der Schutz auch wieder entfernt werden. 

Die Sprungadressen sind so angelegt, daB Sie beim Abtip- 
pen die REM-Zeichen nicht mit eingeben mussen. 

Nach dem Starten des Programms erscheint das Titelbild mit 
dem Menu (Bild 1), von dem aus Sie in drei Unterprogramme 
verzweigen, oder das Programm beenden konnen. Drucken 
Sie hier die »F8-Taste« 5 so erzeugen Sie einen System-Reset 
(SYS 64738). Haben Sie Fileprotect 64 noch nicht abgespei- 
chert, mussen Sie es mit der »STOP-Taste« beenden, sonst war 
die Arbeit des Abtippens umsonst!. 

Nehmen wir an, Sie wollen das Directory einer Diskette einle- 
sen. Betatigen Sie dazu bitte die »F1-Taste«. Der Bildschirm 
wird geloscht, es erscheint die Uberschrift »DIRECTORY« und 
Sie werden aufgefordert eine Diskette einzulegen und eine Ta- 
ste zu drucken. Sollten Sie versehentlich eine Taste drucken 
und es befindet sich noch keine Disk im Laufwerk, so wird die 
Fehlermeldung »DISK FEHLER« ausgegeben (Bild 2) und ein 
erneuter Tastendruck erwartet. Nach Auflisten der Eintrage 
mussen Sie wieder eine Taste drucken (Bild 3), urn zum Menu 
zuruckzukehren. Hat das Directory mehr als 1 5 Eintrage, so er- 
scheint die Meldung »WEITERE EINTRAEGE BITTE TASTE 
DRUECKEN« und es wird eine neue Seite angelegt und 
angezeigt. 

Mochten Sie ein Programm schutzen, betatigen Sie die 
»F3-Taste«. Jetzt werden Sie erneut aufgefordert, eine Diskette 
einzulegen und eine Taste zu drucken. Haben Sie dies getan, 
pruft Fileprotect 64, ob eine Disk eingelegt ist und ob sie mit 
einem Schreibschutz versehen ist! Ist dies der Fall, wird die 
Fehlermeldung »SCHREIBSCHUTZ ENTFERNEN« ausgege- 
ben (Bild 4). Haben Sie eine korrekte Disk eingelegt, durch- 
sucht das Programm die Directory nach ungeschutzten Files; 
wurde ein solcher Eintrag gefunden, so wird dessen Filetyp 
und Name ausgegeben. Danach erscheint »PROTECT (J/N)« 
(Bild 5) und Sie konnen entscheiden, ob Sie das File schutzen 
wollen oder ob nicht. Sind keine weiteren ungeschutzten Files 
auf der Diskette, kehrt das Programm zum Menu zuruck. 
Drucken Sie jetzt die »F1-Taste« und lesen das Directory ein, so 
erkennen Sie geschutzte Files an dem > -Zeichen hinter dem 
Filetyp. Wahlen Sie erneut »Protect« an, werden Sie feststel- 
len, daB die eben geschutzten Files nicht mehr abgefragt wer- 
den! Mochten Sie den Scratchschutz wieder entfernen, wah- 
len Sie »F5 UNPROTECT«. Alles weitere lauft dann so ab, wie 
Sie es von »Protect« kennen. 

Nun mochte ich noch einige Worte uber die Funktionsweise 
von »Fileprotect 64« sagen. 

Das Betriebssystem der Floppy 1541 kennt, wie Sie sicher 
wissen, funf verschiedene Filetypen. Diese konnen geoffnet, 
geschlossen oder geschutzt sein. Somit sind dann 15 ver- 
schiedene Zustande moglich. Der Filetyp wird in der Directory 
durch das erste Byte eines Fileeintrages gekennzeichnet. Wie 
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SieinTabelle 1 sehen, unterscheidetsicheingeschutzterFile- 
typ von einem ungeschutzten durch das gesetzte sechste Bit. 
Das Setzen des Bits erreicht man, indem man den ungeschutz- 
ten Filetyp durch die »OR«-Funktion mit der Zahl 64 verknupft. 
In Tabelle 2 sehen Sie an dem Beispiel »PRG«, wie die OR- 
Verknupfung arbeitet. Die beiden Operanten werden Bit fur Bit 
verglichen. 1st in einem derFaktorenein Bitgesetzt, also 1, wird 
es auch im Ergebnisbyte gesetzt. Urn das sechste Bit wieder 
auf zu setzen, wahlen wir die Verknupfung »AND«. Jetzt er- 
gibt sich eme 1 im Ergebnisbyte nur dann, wenn beide Fakto- 
ren den Wert 1 haben. Diese Eigenschaft konnen wir nutzen, 
urn eine bestimmte Bitstelle auf zu setzen. Wir verknupfen 
das geschutzte Byte mit dem Faktor 191 (dual 1011 1111) und 
erhalten wieder den ungeschutzten Filetyp 130 (Tabelle 3). 

Genug der grauen Theorie! Wie kann man diese Anderun- 
gen nun auf der Diskette vornehmen? Dazu mussen wir den Fi- 
letyp (1 Byte) von der Disk lesen, ihn andern und dann wieder 
zuruckschreiben. Das Betriebssystem der 1541 sieht hierzu 
die Befehle »U 1« (Block lesen) und »U2« (Block schreiben) vor. 
Mit diesen Befehlen konnen Sie aber nur ganze Bldcke, also 
256 Byte m den Puffer einer Direktzugriffsdatei einlesen Oder 
aus ihm auf die Diskette schreiben. Da wir nur ein bestimmtes 
Byte bendtigen, nutzen wir die Mdglichkeit, den Zeiger, der die 
augenblickliche Lese- Oder Schreibposition im Puffer angibt, 
auf einzelne Bytes setzen zu konnen. Der Befehl hierfur lautet 
»B-P« (Buffer Pointer). AHe Befehle, die fur die Floppy bestimmt 
sind, werden uber den Befehlskanalgesendet, derim»OPEN«- 
Befehl (Zeile 640) durch die Sekundaradresse 15 angespro- 
chen wird. Mit dem PRINT #-Befehl werden jetzt die Komman- 
dos ubermittelt. Zum Beispiel lesen eines Sektors von Spur 18 
(Zeile 2 160). Daten konnen nicht direkt von der Diskette in den 
Computer eingelesen werden, sondern mussen in einem Da- 
tenpuffer zwischengespeichert werden. Dazu eroffnen wir ei- 
ne Direktzugriffsdatei (Zeile 650), aus der wir dann mit dem 
GET#-Befehl die Bytes einzeln herauslesen. 

Im Bild 7 sehen Sie ein kleines Beispiel fur die Anwendung 
der genannten Befehle. Mit diesem Unterprogramm konnen 
Sie den Namen einer Diskette einlesen. 



Zeile 

100-350 
360-450 



460-530 
! 540-bOO 

I 

I 610-660 
670-730 

• 740-960 
970-1250 



1260-1430 

1440-2040 

2050-2510 



Kommentar 

Titel des PGMs, Adresse des Autors 
Haupt-Programm; von hier aus werden die einzelnen 
Unterprogramme angesprungen. Aus welchen Zeilen 
die Unterprogramme angesprungen werden, entneh- 
men Sie bitte Tabelle 4. 

Setzen der Bildschirmfarben und festlegen der Kon- 
stanten »BL$« 

Unter-PGM warten auf Tastendruck und ein Zeichen 
aus aem Tastaturpuffer holen. 
Unter-PGM: Befehlskanaf und Direktzugriffsdatei auf 
aer Floppy offnen 

Unter-PGM Zeicnen aus Floppy-Puffer einlesen und si 
cherstellen, daft kein Leerstring weitergegeben wird. 
Ausgabe des Titelbildes und Menus 
in diesem Unterprogramm wird gepruft, ob eine Disk 
emgeiegt ist Oder ob bei Protect und Unprotect ein 
Schreibschutz auf der Disk vornanden ist. AuRerdem 
wird wenn Kern Fenier auftrat. bei Protect und Unpro- 
tect eine TaDeilenuberschnft ausgegeben. 
Unter-PGM Filetyp einlesen und auswerten. 
Unter-PGM Directory einlesen. 
Unter-PGM: Protect Oder Unprotect. Ist im Haupt-PGM 
P = 1 dann wird die Routine Protect, ist P = die Routi- 
ne Unprotect durchgefuhrt 



Die Funktionen der einzelnen Variablen entnehmen Sie bitte 
Tabelle 5. Eine wichtige Anmerkung: Damit Fileprotect 64 ein- 
wandfrei arbeitet, muB in Zeile 2499 hinter dem »(FT)« unbe- 



dingt ein Semikolon (;) gesetzt sein! Ist dies nicht der Fall, kon- 
nen Sie geschutzte Programme nicht mehr laden. Ohne Semi- 
kolon wird ein CHR$(13) an den Wert angehangt. Es wiirden 
also zwei Byte und damit die Startadresse des Programms 
uberschrieben! 
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PROTECT 
UNPROTECT 
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ABB. 
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DISK EINLEOEN UND TASTE DRUECKEN 
DISK FEHLER ! 
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ABE - 






a 



DISK EIHLEGEH UND TASTE DRUECKEN 



2 

1 

1 

5 

3 

115 

3 

33 

33 
4 

12 

3 

438 



TEST 1 
DISK ERROR 
DRUCK MRSKE2 
DRUCK* MflSKE 
DRUCK TEST1 
GUNIS KRRTEI-KFIR 
♦ ART. 
TEST 1 
3-D IG 
3-D 2G 

TCOT 

FILEPROTECT 64 
BflLKEH 

FREIE BLOECKE 



PRG 

PRG 

PRG 

PRG 

PRG 

PRG 

SEQ 

PRG 

PRG 

PRG< 

PRG< 

PRG 

PRG 



TASTE DRUECKEN . 




H TE' IB m 



4 



m:w*mmmmt 

DISK EIHLEGEH UHD TASTE DRUECKEH 



SCHREIBSCHUTZ EHTFERHEH ! 




R B E 



Zffl ~M*fflt Iffl 41 *■ t 



DISK EINLEGEN UND TASTE DRUECKEN . 



TVP NAME 



PRG 
PRG 
PRG 
PRG 
PRG 
PRG 
SEQ 
PRG 
PRG 
PRG 

PRG 



TEST 1 

DISK ERROR 

DRUCK MRSKE2 

DRUCK* MflSKE 

DRUCK TEST1 

GUNIS KfiRTEI-KHR 

* ART. 

TEST 1 

3-D IG 
FILEPROTECT 64 

BALKEN 



PROTECT 
PROTECT 
PROTECT 
PROTECT 
PROTECT 
PROTECT 
PROTECT 

PROTECT 
PROTECT 
PROTECT 
PROTECT 



( J/N > H 

< J/N > N 
<J/N>J 
i J/N ) J 

< J/N > N 
i J/N ) N 
( J/N ) N 

< J/N ) J 
(J/N>J 
•:: J/N ) J 
(. J/N > H 



ABB. 



mm'jn:mrvimm*mi 



DISK EINLEGEN UND TASTE DRUECKEN 



TVP NAME 



PRG< 


DRUCK NASKE2 


UNPROTECT 


•:;j/H)N 


PRG< 


DRUCK* 


MflSKE 


UNPROTECT 


<J/H>N 


PRG< 


TEST 1 




UNPROTECT 


•::j/n>.j 


PRG< 


3-D IG 




UNPROTECT 


(J/N) J 


PRG< 


3-D 20 




UNPROTECT 


<J/N>J 


PRG< 


TEST 




UNPROTECT 


<J/N>J 


PRG< 
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UNPROTECT 


<J/N)J 




RBB. 



160 0PEN15,8.« 15,"I6" 

118 QPEN2,8,2, M r 

120 PRIHT#15, ,, B-R n ;2;0;lS;0 

1 30 PR I NT# 15," B-P " ; 2 ; 1 44 

140 N$= n " 

150 FOR 1=0 TO 15 

160 0ET#2#X*=IF K*»CHR$<168> 

170 n$=n$+x$ 

180 NEXT I 

190 PRINT "DISK NAME: ";Nt 
200 CLOSE 2 
210 CLOSE 15 
END 



THEN 1=15 -GOTO 186 



'_^•_- , 



REflDV. 




TflBELLE 



Dua 1 



Dez Hex Filet-yP 



0060 
0000 
0000 
0000 
0000 
1 000 
1 00© 
1 000 
1 000 



a *->OK.> 



1 1 00 
1100 
1 1 00 

1100 
1100 



0000 
0001 
00 1 
00 1 1 
1 00 
0000 
0001 
00 1 
0011 
0100 
0000 
000 1 
0010 
0011 
0100 



..0 
-.1 



-.4 
128 
129 
130 
131 
132 
192 
1 93 
194 
195 
196 



$00 
$01 
$02 

$03 
$04 

$80 
$81 

*OcL 

$83 
$84 

$C8 
$C1 
$C2 
$C3 
$C4 



#DEL 
*SEQ 
*PRG 
*USR 
*REL 
DEL 
SEQ 
PRG 
USR 
REL 
HEL< 
SEQ< 
PRG< 

USR< 
REL< 




TRBELLE 



Die 



Dual 



I.. I f ' m Z m 



V •=- r- k: yi ■_■. ■=- F- HF" kjl n *=■ 



Dez Tap 



1000 0010 130 PRG 

0100 8000 .64 VertcmePfun9sfaktor 



1100 0010 194 PRG< 



.•• 
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TREELLE 



Iiu.al 



r m m 



v' ••==- r~- h: ft ©■ » jl f> •*■ " ■ jl n ■££ 



Ho 



TyP 



1100 9810 134 PRG-C 

1011 1111 191 Verk nue-P f uri9$f afc tor 



II rr-n ■!■ 



1000 0010 130 PRG 




xfieeill-.ee: 



T 



-> 



BB 
BL* 

FB 

FT* 

FT 

HB 

I 

LB 

N* 

P -> 

RM -> 

S -> 

Sfl -> 

T -> 
UE - 
X* 






> 



-••• 



-- 



ZE -3 



Get von Tastatur 
Bele9te Blocks 

F o r m a t s t r • i n 9 f u. e r B i I dsch i r m a u. s 9 a b e ri 
Freie Blocks 
FHetyp a Is Wort 
FiletaP a Is Zahl 
Hi9h Byte der be I est en Blocks 
L a u.f variable 

Low Byte- dei- bele9ien Blocks 
Maroe des aktu.ellen Di rectory eintraQes 
Schalter fuer Protect oder UnProtect 
Ru.eckmeldu.Ti9 von UnterPro9rar>-imeri 
flk tu.e 1 1 er Sek tor 
filter Sek tor- 
Track < 

Schalter fu.er Ueberschrift ja/neiri 
Get von Diskette 
Lau.fvariable 
Zeilenzaehler bei Unter-RGM Directors 



TREELLE -4 



■ 



F' R IJi 1 4 



r-i 



T R E E L L 



Zeile Wird an9esPru.n9efi von Zeile 



370 


440* 








* 


380 


400? 










490 


. 3680 










570 


3801? 


10201? 


18901? 


20306 2420J? 


640 


10701? 


1 5301? 


214QI? 






700 


12901* 


1590!? 


16101? 


l£80i? 3 
2330f? c 


I 7001? 




17801? 


21701? 


2190'? 


•360!? 


77Q 


370® 










1 000 


1510® 


2 1 20i? 


* 


= GOTO 




1140 


1060? 




i? 


« GOSUB 




1180 


1140? 




9 

• 


= IF THEN 




125© 


1180? 


1210?* 


?# 


= IF THEN 


GOTO 


1290 


1650@ 


22401? 


78 


= IF THEN 


GOSUE 


1470 


430'? 


1520? 


• 






1570 


1940? 










1810 


1 790?* 










1 930 


1660? 


1840? 








2080 


430'? 


2130?" 








2160 


2290? 








• 


2330 


2250?!? 


2260?!? 








2420 


2440? 










2510 


2430?* 












100 REM 
110 

120 

130 

140 

150 

160 REM 

170 

180 REM 

190 

200 REM 

210 

220 REM 

230 

240 REM 



REM FILEPROTECT 64 



REM SCRATCH-SCHUTZ VON FILES 



FUER 



250 



C-64 UND 1541 



260 REM 



JOCHEN FETTE 



GASSELSTIE6E 14 



4400 MUENSTER 



<110> 
<168> 

<178> 

<188> 

< 1 5 1 > 

<208> 
<097> 
<228> 
<207> 
<248> 
<025> 
<012> 
<154> 
<032> 
<100> 
<052> 
<207> 
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270 : <073> 

280 : <083> 

290 REM <045> 

300 : <103> 

310 : <lt3> 

320 : <123> 

330 : <133> 

340 : <143> 

350 : <153>- 

360 60SUB 490:REM INITI ALISIEREN <117> 

370 60SUB 770sREM TITELBILD <004> 

380 60SUB 570:REM WARTEN AUF TASTE <157> 

390 IF ASC(A$)=140 THEN SYS 64738:REM ENDE? -> RESET! 

<089> 
400 IF ASC(A$)>135 OR ASC(A$)<133 THEN 380:REM UNGUELTI6E TASTE 

<221> 

410 IF ASC(A$>=134 THEN P=1:REM PROTECT < 176> 

420 IF ASC(A*)=135 THEN P=0:REM UNPROTECT <093> 

430 ON ASC(A$)-132 BOSUB 1470,2080,2080 <066> 

440 GOTO 370 <220> 

450 END <067> 

460 REM ' <170> 

470 REM INITIALISIEREN <127> 

480 REM <190> 

490 BL$="CSPACE20]":REM 20 - SPACE <087> 

500 POKE 53280,9:REM FARBE FUER RAND AUF 'BRAUN' <021> 

510 POKE 53281 ,9:REM FARBE FUER HINTERORUND AUF 'BRAUN' <069> 

520 PRINT CHR*(5);:REM FARBE FUER SCHRIFT AUF 'WEISS' <078> 

530 RETURN <162> 

540 REM <251> 

550 REM WARTEN AUF BELIEBIBE TASTE UND EIN ZEICHEN VON TASTATUR HOLEN <002> 

560 REM -r <015> 

570 A$="" <151> 

580 POKE 198,0:WAIT 198,255:REM WARTEN AUF BELIEBIBE TASTE <128> 

590 SET A* <086> 

600 RETURN <232> 

610 REM <065> 

620 REM DISK OEFFNEN <041> 

630 REM <085> 

640 OPEN 15,8,15,"I0":REM BEFEHLSKANAL 15 ,UND '10' FUER INITIALISIEREN <026> 

650 OPEN 2,8,2, "ITiREM DATEN PUFFER 2 ,UND '#' FUER DIRECKTZU6RIFF <186> 

660 RETURN <036> 

670 REM <125> 

680 REM 1 ZEICHEN AUS DISK LESEN <251> 

690 REM <145> 

700 X*="" <048> 

710 GET#2,X*:REM 1 ZEICHEN LESEN <221> 

720 IF X$=""THEN XI=CHR* (0) : REM SONST 'ILLESAL QUANTITY ERROR' <157> 

730 RETURN <106> 

740 REM <195> 

750 REM TITELBILD AUS6EBEN <102> 

760 REM < 2 1 5 > 

770 PRINT CHR*<147);:REM 'CLR' < 1 3 3 5 

780 PRINT SPC!!13);"FILEPR0TECTCSPACE364" <005> 

790 PRINT SPC<12);"£f££E£EEE££fffE£":REM 'SCHIFT + E' <251> 

800 PRINT <156> 
810 PRINT SPC(6);CHR$(18); ,, SCRATCH-SCHUTZCSPACE]V0NCSPACE]FILESCSPACE]FUER";CHR*(146) 

:REM INVERS <066> 
820 PRINT SPC(13);CHR$(18)5"C-64[SPACE]UND[SPACE2]1541";CHR*(146) 

:REM INVERS <088> 

830 PRINT - <218> 

840 PRINT CHR$(144);"[SPACE8](C)[SPACE]1984[SPACE2]BYCSPACE]J0CHENCSPACE]FETTE";CHR*(5) 

:REM SCHWARZ <187> 
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PRINT:PRINT:PRINT:PRINT 

CHR*(18) 



CHR$(18) 



CHR*(18) 



CHR*<18) 



" t SPACE ]F It SPACE!" ; CHRf (146) 



"[SPACE]F3[SPACE]"; CHRf (146) 
" t SPACE ]F5C SPACE ]";CHR$( 146) 



"[SPACE]F8[SPACE]"; CHRf (146) 



"CSPACE33DIRECTORY" 



"CSPACE3JPR0TECT" 



"[SPACE31UNPR0TECT" 



"[SPACE31END" 



850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 

970 REM 

980 REM DISK EIN6ELEGT ? KEIN SCHREIBSCHUTZ ? 

990 REM . ■ 

1000 PRINT 

1010 PRINT "DISK! SPACE IE INLEGENISPACE3UNDC SPACE] TASTECSPACE3DRUECKENI SPACE]. [SPACE]. 
[SPACE]." 

WARTEN AUF TASTE 
OEFFNEN DES BEFEHLSKANALS UNO INITI ALISIEREN 

FEHLER CODE 



PRINT SPCU0) 

PRINT 

PRINT SPC(IB) 

PRINT 

PRINT SPCI10) 

PRINT 

PRINT SPC(10) 

PRINT 

PRINT 

PRINT SPC(10);"[SPACE7]IHRE[SPACE]WAHL[SPACE]?";:REM 7 - SPACE 

RETURN 



1020 60SUB 570:REM 

1030 OPEN 15,8,15,"I0":REM 

1040 INPUT#15,RM:REM 

1050 CLOSE 15 

1060 IF RMO0 THEN 1140:REM 

1070 GOSUB 640:REM 

1080 PRINT* 15," B-R"; 2; 0; IB; 0: REM 

1090 PRINT* 15," B-W"; 2; 0; 18; 0: REM 

1100 INPUT#15,RM:REM 

1110 CLOSE 15.-REM 

1120 CLOSE 2:REM 

1130 PRINT 

1140 IF RMO0 OR UE=0 THEN 1180:REM 



KEINE DISK 
DISK OEFFNEN 
LESEN EINES BLOCKS 
SCHREIBEfl DES BLOCKS 

FEHLER CODE 
BEFEHLSKANAL SCHLIESSEN 
DATENPUFFER SCHLIESSEN 



39 - SCHPFT 'E' 



KEIN FEHLER -> RETURN 



FEHLER, AUFRUF VON DIRECTORY -> KEINE UEBE 
<103> 
1150 PRINT"[SPACE]TYP[SPACE2]NAME" 

1160 PRlfiJ" E£EEEEEE£EEEEEEE£EEE£££E£E£EEEEEE£E£E££»iREn 
1170 UE=0 

1180 IF RM=0 THEN 1250:REM 
1190 PRINT 

1200 IF RM<>26 THEN PRINT CHRf ( 144) ; "DISK.[SPACE]FEHLER[SPACE] ! " ;CHRf (5) 

:REM SCHWARZE SCHRIFT 
1210 IF UE=0 AND RM=26 THEN RM=0:GOTO 1250: 

1220 IF RM=26 THEN PRINT CHRf ( 144) ; "SCHREIBSCHUTZ[SPACE]ENTFERNEN[SPACE] I " ; CHRf (5) : 

<229> 

1230 FOR W=l TO 1500:REM ' WARTESCHLEIFE 

<134> 



<103> 
<252> 
<002> 
<126> 
<022> 
<055> 
<042> 

< 9 7 > 
<062> 
<072> 
<104> 
<081> 
<170> 

< 171 > 
<190> 
<132> 



<135> 
<031> 
<071> 
<099> 
<036> 
<179> 
<078> 
<196> 
<0B7> 
<159> 
<122> 
<036> 
<007> 
R. 

<125> 
<034> 
<018> 
<012> 
<067> 

<231> 
<026> 



1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 

1390 
1400 
1410 



NEXT Iff 
RETURN 
REM 

REM FILETYP 

REM 

GOSUB 700: R 
FT=0:FTf="" 
IF ASC(Xf>= 
IF ASC(Xf>= 
IF ASC(Xf)= 

IF ASC(Xf>= 
IF ASC(Xf>= 
IF ASC(Xf)= 
IF ASC(Xf>= 
IF ASC(Xf)= 



HOLEN 



EM 

1 THEN FT 

2 THEN FT 

3 THEN FT 

4 THEN FT 

129 THEN 

130 THEN 

131 THEN 

132 THEN 



= 1: 



=3: 



=4: 
FT = 

FT = 
FT= 
FT = 



IF ASC(X$)=193 THEN FT= 
IF ASC(X$)=194 THEN FT= 
IF ASC(X$)=195 THEN FT= 



FTf = 
FT$ = 
FT* = 
FT$ = 
129: 

130: 
131: 
132: 

193: 
194: 
195: 



"#SEQ 
"*PRG 
"#USR 

"*REL 
FT* = " 

FT$=" 
FT$=" 

FT$ = " 

FT$ = " 
FT$ = " 
FT$ = " 



1 ZEICHEN AUS PUFFER 



[SPACE]" 

[SPACE]" 

[SPACE]" 

[SPACE]" 

[SPACE]SEQ[SPACE]" 

[SPACE]PRG[SPACE]" 

[SPACE]USR[SPACE]" 

[SPACE]REL[SPACE]" 

[SPACEJSEGK" 
[SPACE]PRG<" 
[SPACE]USR<" 



<181> 

< 1 1 6 > 
<205> 
<028> 
<226> 
<228> 

< 1 3 1 > 
<073> 
<085> 

< 1 1 4 > 

<103> 
<029> 

<023> 
<052> 
<041> 

< 1 3 1 > 
<143> 
<172> 



iM? 
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1420 IF 

1430 RE 

1440 RE 

1450 RE 

1460 RE 

1470 PR 

1480 PR 
CSPA 

1490 PR 
1500 
1510 



DIRECTORY EINLESEN 



CHR$(147):REM 
SPC(6);CHR$(18);"D[SPACE] 
Y";CHR$(146):REM 



1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 

1640 
1650 
1660 

1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 



1800 
1810 
1820 
1830 



UE 
60 
IF 
60 
T= 
BB 
ZE 
PR 
PR 
60 
T = 
60 
S= 
F0 



ASP«$>*196 THEN FT=196: FT$=" [SPACE]REL< 
TURN 
M - 
M 
M 

INT 
INT 
CEI 
INT 
= 0: 
SUB 

RM 
SUB 
18: 
= 0: 
= 0: 
INT 
INT 
SUB 
ASC 
SUB 
ASC 
R I 



f II 



REM 

1000: REM 
<>0 THEN 1470:REM 

640: REM 
S=1:REM 
FB=664:REM 
REM 

#15,"B-R";2;0;T;S 
#15,"B-P";2;0:REM 

700:REM 
<X$):REM 

700 

(It) :REM 
=0 TO 7:REM 



REM 



'CLR' 
I [SPACE ]R[ SPACE IEC SPACE IC [SPACE] T[ SPACE 101 SPACE 
REVERS 

KEINE UEBERSCHRIFT 
DISK EINSELE6T? 
NEUER VERSUCH 
DISK OEFFNEN 
TRACK UND SEKTOR 
BELE6TE UND UNBELE6TE BLOECKE 
ZAEHLER FUER BILDSCHIERMZEILEN 

1. SEKTOR LESEN 
POINTER AUF NAECHSTEN TRACK 

ZEICHEN LESEN 
NAECHSTER TRACK 



< 






< 
< 

< 
] 



V 






< 

< 



< 



/ 



< 






< 






NAECHSTER SEKTOR < 
8 DIRECKTORY EINTRAE6E PRO SEKTOR 



161 > 

041> 
130> 
070 > 
150> 
008 > 
R ' 
233 > 
112> 
024) 
000 > 
142 > 
027 > 
230) 
198) 
146) 
195> 
011) 
166> 
186> 
116) 
048 > 



<073> 



PRINT#15,"B-P"; 2; 1*32+2: REM 

60SUB 1290:REM 

IF FT=0 THEN 1930:REM 



<034> 



PRINT#15,"B-P";2; I#32+30:REM 

60SUB 700 

LB=ASC(X$):REM 

60SUB 700 

HB=ASC(X$).*256:REM 

BB=HB+LB:REM 

PRINT STRf (BB)+LEFT*(BL$,5-LEN(STR$(BB)));:REM 

FB=FB-BB:REM 

PRINT#15,"B-P"; 2; 1*32+5: REM 

N$="":REM 

FOR Y=0 TO 15:REM 



POINTER AUF FILETYP 

FILETYP HOLEN 
NAECHSTER DIRECTORY EINTRA6 

POINTER AUF ANZAHL DER BLOCKS 

LOW BYTE DEZIMAL 

HI6H BYTE DEZIMAL 

BELE6TE BLOCKS 

AUS6ABE DER BLOCKS 

FREIE BLOCKS 

POINTER AUF FILE NAME 

ALTEN FILENAMEN LOESCHEN 

MAXIMAL 16 ZEICHEN 



< 



092 > 
045> 



< 

< 
< 
< 
< 
< 
< 
< 
< 
< 



229> 
186> 
104> 
206> 
239> 
053> 
189> 
181 > 
241> 
107> 



1780 SOSUB 700 

1790 IF ASC(X$)=160 THEN Y=15:G0T0 1 



<245> 

810:REM 

<170> 



<030> 



SCHIFT SPACE NICHT UEBERNEHMEN 



N$=N$+X$ 

NEXT Y 

PRINT N*+LEFT$(BL$,20-LEN(N$) ) ;FT$:REM 

ZE=ZE+1:REM 



<203> 



FILENAMEN UND FILETYP < 

ZEILENZAEHLER < 



244> 
183> 
147> 



1840 IF ZE<15 THEN 1930:REM 



SEITE NOCH NICHT VOLL 



1850 
1860 
1870 
1'880 
1890 
1900 
1910 



<012> 



ZE=0 

PRINT 

PRINT 

PRINT 

GOSUB 

PRINT 

PRINT 



\ -c 



WEITERECSPACEIEINTRAEGE" 

BITTE[SPACE]TASTE[SPACE]DRUECKEN[SPACE]. [SPACE]. [SPACE]."; 
570: REM WARTEN AUF TASTE 

CHR$(147):REM 'CLR' 

SPC<6);CHR$(18);"D[SPACE1I[SPACE]R[SPACE]E[SPACE]C[SPACE]T[SPACE]0[SPACE]R 
[SPACE]Y";CHR$(146):REM INVERS 

1920 PRINT:PRINT:PRINT:PRINT 

1930 NEXT I:REM NAECHSTER DIRECTORY EINTRA6 

1940 IF TO0 THEN 1570:REM WEITERE EINTRAE6E 

<051> 

1950 CLOSE 2:REM - PUFFER SCHLIESSEN 



<194> 
<228> 



<075> 
<137> 
<184> 



<153> 
<153> 
<129> 



<249> 



60 










C64 



Fileprotect 



I960 
1970 

1980 
1990 

2000 
2010 
2020 



CLOSE 15: REM 

PRINT 

PRINT FB;:REM 

IF FBOl THEN PRINT"CSPftCE3]FREIECSPACE3BLOECKE" 

IF FB=1 THEN PRINT" [SPACE3]FREIER[SPACE]BL0CK" 

PRINT 

PRINT"TASTE[SPACE3DRUECKENCSPACE]. [SPACE], [SPACE]."; 



BEFEHLSKANAL SCHLIESSEN <207> 

<082> 



FREIE BLOECKE 



2030 GOSUB 570: REM 

2040. RETURN 

2050 REM 



WARTEN AUF TASTE 



<072> 
<089> 

< 1 2 1 > 
<122> 

<095> 

<021> 

< 141 > 



<23 



1> 



2060 REM PROTECT ODER UNPROTECT 
2070 REM 



<178> 



2080 PRINT CHR$(147):REM 
2090 IF P=t THEN PRINT SPCd 

[SPACE]T";CHR$(146):REM 
2100 IF P=0 THEN PRINT SPCd 

[SPACE]E[SPACE]C[SPACE]T";CHR*<146> 
2110 UE=1:REM 
2120 BOSUB 1000:REM 
2130 IF RMO0 THEN 2080:REM 



\ i. j 1 
'CLR' <077 
3);CHR*(18);"P[SPACE]R[SPACE]0[SPACE1T[SPACE]E[SPACE]C 

INVERS <077 

2) ; CHR*(18) ; "U[SPACE]N[SPACE]P[ SPACE ]R[SPACE]Q[SPACE]T 



/ 

/ 



s 

/ 



<088 
UEBERSCHRIFT <018 
DISK EINGELEGT? < 101 
WENN FEHLER DANN NEUER VERSUCH 



\ 
/ 

V 

/ 

> 



<000: 



\ 



\ 



2140 


2150 


2160 


R 


2170 


2180 


2190 


2200 


2210 


2220 


2230 


2240 


2250 



2 



GOSUB 640:REM 

T=18:S=i:REM 

PRINT#15, "U1I SPACE ]2[ SPACE ]0[ SPACE] 18", S: REM 

LESEN 
GOSUB 700:REM 
T=ASC(X$):REM 
GOSUB 700 
SA=S:REM 
S=ASC(X$):REM 
FOR 1=2 TO 226 STEP 32 
PRINT#15,"B-P";2;I:REM 
GOSUB 1290:REM 

IF FTM28 AND FT< 1-33 AND P = l THEN GOSUB 2330:REM NUR 

<120> 



DISK OEFFNEN <128 

TRACK UND SEKTOR <074 

SEKTOR 'S- VON TRACK 18 IN PUFFE 

<031 
ZEICHEN LESEN <236 

NAECHSTER TRACK <000 

<186 
AKTUELLEN SEKTOR MERKEN <065 

NAECHSTER SEKTOR < 128 

<174 



> 



POINTER AUF FILETYP 

FILETYPHOLEN 
UN6ESCHUETZTE FILES FUER PROT 



< 1 9 1 

<125 



;• 



\ 



> 
> 



> 






2260 IF FTM92 AND FT<197 AND P=0 THEN GOSUB 2330:REM NUR GESCHUETZTE FILES FUER UNPROT. 

<140> 
2270 NEXT I:REM NAECHSTER DIRECTORY EINTRAG <214> 

2280 IF RM=1 THEN RM=0: PRINT#15 , "U2[SPACE]2[SPACE]0[SPACE] 18" ; SA- 



:REM KORRIGIRTEN BLOCK SCHREIBEN 
2290 IF TO0 THEN 2160:REM 

<079> 
2300 CLOSE 2:REM 
2310 CLOSE 15:REM 
2320 RETURN: REM 
2330 GOSUB 700:GOSUB 700:REM 
2340 NS="":REM 
2350 FOR Y=0 TO 15:REM 

<039> 
2360 GOSUB 700 
2370 IF ASC(X$)=0 THEN N$=N$+" [SPACE] ": REM 

EN 
2380 IF ASC(X$><>0 THEN N$=N$+X$ 



<005> 



WEITERE EINTRAEGE 



DATENPUFFER SCHLIESSEN <196> 
BEFEHLSKANAL SCHLIESSEN <047> 

DIRECTORY ENDE <065> 
2BYTE UEBERSPRINGEN <173> 
ALTEN NAMEN LOESCHEN <146> 
HOECHSTENS 16 ZEICHEN 

< 1 1 > 
IMMER AUFFUELLEN AUF 16 ZEICH 

<233> 
<106> 
<058> 



2390 NEXT Y 

2400 IF P=l THEN PRINT FTI + " [SPACE] "+N*+" [SPACE3]PR0TECT[SPACE] (J/N) " ; 

:REM FILETYP UND NAME 

2410 IF P=0 THEN PRINT FTI+" [SPACE] "+N$+" [SPACE]UNPROTECT[SPACE] (J/N) "; 

:REM FILETYP UND NAME 

2420 GOSUB 570: REM MARTEN AUF TASTE 

2430 IF A$ = "N"THEN PRINT"N" : GOTO 2510:REM RETURN 

<193> 
2440 IF A$<>"J"THEN 2420:REM UNGUELTIGE TASTE <037> 

2450 PRINT"J" <194> 



<127> 

<043> 
< 1 5 7 > 



33ta? 
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Autostart 



C64 



2 



460 PRINT#15,"B-P";2;I:REM 
2470 IF P=l THEN FT=(FT OR 64):REM 

2480 IF P=0 THEN FT=(FT AND 255-64) ;REM 

2490 PRINT#2,CHR*(FT>;:REM 
2500 RM=1:REM 
2510 RETURN 



/ 



<004> 



<066> 



PUFFER POINTER AUF FILETYP < 1 1 > 

FILETYP SCHUETZEN 

SCHUTZ ZURUECKNEHMEN 

GEAENDERTER FILETYP_ <178> 
VERAENDERUNGEN DURCHGEFUEHRT <001> 

<10i> 




Autostart mit 
Ruck 

wartsgang 

Dieser Autostarter erzeugt nicht nur 



sic und 



Lade-Prog 



Prog 



Es 



wird zusatzlich die RUN/STOP-Taste ge- 
sperrt und ein Kopierschutz installiert. 
Urn ein so behandeltes Programm wie- 
der verandern zu konnen, kann mit ei- 






gesamte Vorgang 



gangig gemacht werden. 

Das Programm »P-Basic-V2« lauft auf dem Commodore 64 
(ohne Basic-Erweiterung) und der Floppy 1541 (nicht auf der 
Datasette, da das Programm beim Laden den Kassettenpuffer 
benutzt). Es ist zirka 260 Bytes lang und liegt im Speicher ab 
49152 ($c000). 

Nach dem normalen Laden und Starten des Basic- 
Programmes, ist das Basic-V2 urn drei neue Befehle erweitert: 

1. !SAVE"Name", Geratenummer,1 

2. !LOAD"Name", Geratenummer,1 

3. !NEW 

Der Hauptbefehl ist !SAVE. Mit ihm kann man ein Basic- 
Programm oder ein Maschinenprogramm (mit Basic-Startzeile) 
so abspeichern, daB es nach dem Laden von allein startet. Au- 
Berdem wird die RUN/SJOP/RESTORE-Taste abgestellt. Das 
Programm ist somit vor Anderungen gesichert. Auch das Ko- 

> 

pieren ist nur mit besonderen Kopierprogrammen moglich. 
Doch durch eine Codewortabf rage in den ersten Zeilen wird es 
wohl keiner schaffen, das Programm zum Laufen zu bringen. 
Ein Programm, das mit dieser Basic-Hilfe abgespeichert wur- 
de, muB mit dem Zusatz »,1« absolut, nicht ab Basic-Start 
(2049), geladen werden. Ladt man ein solches Programm oh- 
ne diesen kleinen Zusatz in den Speicher, so laBt es sich weder 
listen, noch starten. Weil ein normales Programm mit der Zwei- 



62 



Byte-Startadresse am Anfang der Datei gespeichert wird, ist 
es durch ein nochmaliges anderes Abspeichern ganz verloren. 

Man kann diese Routine naturlich auch nur zur Bequemlich- 
keitbenutzen. UmdieStopp-Routinewiederzuaktivieren, hilft: 
POKE808,237 als erster Befehl des Programms. 

Ist in dem geschutzten Programm nun aber ein Fehler, oder 
will man es erweitern oder verbessem, so hilft der zweite Be- 
fehl. Mit !LOAD kann man alle Programme, die mit Autostart ge- 
schutzt sind, knacken und nach eigener Lust bearbeiten. 

Tritt bei den Arbeiten mit diesen Befehlen ein Fehler auf, den 
Sie oder das Betriebssystem (Floppy/Computer) verursacht 
haben, so konnen sie mit Eingabe von !NEW alle wichtigen 
Vektoren korrigieren und somit das gerade bearbeitete Pro- 
gramm wieder listen lassen. 

Erlauterungen zum Assemblerlisting 

In dem Programmabschnitt »Vektorsetzung« wird die Routi- 
ne zur Erkennung der Befehls-Token (Basic-Befehle) auf die 
erweiterte Routine (Erkennung) umgelenkt und danach der 
Name der Basic-Erweiterung ausgegeben. 

In der Erkennungsroutine werden die Befehls-Token mit dem 
neuen Befehl (!) und danach mit den eigentlichen Befehlen 
(SAVE, LOAD, NEW) verglichen. »SAVE« hat das Basic-Token 
148, »LOAD« hat 147 und »NEW« hat 162. Wird keiner dieser 
Befehle interpretiert, so wird Syntax Error (Jmp $af08) ange- 
zeigt. Die DATAs werden in der Vektorsetzungsroutine 
ausgegeben. 

Der Befehl »LOAD«, der wie der Befehl »SAVE« nur im Direkt- 
modus verwendet werden darf, setzt zuerst das Programmo- 
dusflag, damit es keine Ausgabe wie »searching for ...« und so 
weiter gibt. Danach werden die LOADparameter geholt 
($e1d4) und nach LOAD verzweigt ($ffd5). Nachdem das Pro- 
gramm geladen ist, werden alle Vektoren mit der NEW-Routine 
wieder zuruckgesetzt und dann zur END-Routine verzweigt 
($a831). 

Der Befehl »SAVE« gleicht am Anfang (bis Ende Zeile 166) 
dem LOAD-Befehl. In Zeile 168 wird die Steuerroutine in den 
Kassettenpuffer (Sprite 11) geladen. Dann werden die »lnput«- 
und »Output«-Vektoren auf die Steuerroutine gesetzt und das 
Programm ab Byte 806 gespeichert. Die Vektoren werden 
dann mit der NEW-Routine normalisiert. 

Die Steuerroutine arbeitet ungefahr so wie die NEW-Routine. 
Nur bei dieser Routine werden zusatzlich die RUN-Zeiger 
($a659) gesetzt, die Run-Stop/Restore- Funktion abgeschal- 
tet und dann zur Interpreterschleife verzweigt. 

Bemerkungen zum Programm 

Das Befehlszeichen »!« kann naturlich durch fast jedes Zei- 
chen ersetzt werden, nur wenn das Zeichen ein Token ist, muB 
nicht der ASCII-Wert, sondern der Tokenwert angegeben wer- 
den, dasonstder Befehl nicht erkannt wird. Wenn das Zeichen 
ein Buchstabe ist, kann derselben Variablen kein Wert zuge- 
wiesen werden. Denn auch dabei entsteht ein Fehler. 

(Jan Kusch/gk) 
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Alle Bucherzum halben Preis! 
Nur solange Vorrat reicht! 

Auslieferung erfolgt 
in der Reihenfolge 
des Auf tragseingangs ! 



N.Treitz 



Besser programmieren mit 
dem VC 20 




BESSER 

PROGRAMMIEREN 
MIT PGM VC 20 
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Bestellnumer HA 553 



1983, 186 Seiten 

Wenn Sie einen VC 20 ha- 
ben Oder kaufen wollen, 
ist dieses Buch eine anre- 
gende, leichtverst&ndliche 
und preiswerte Erganzung 
zum VC 20-Handbuch. Es 
enthalt keine langen Pro- 
gramme zum Eintippen 
(nur kurze Beispiele zum 
Kennenlernen der Tricks), 
denn so richtig SpaB 
macht der Computer erst, 
wenn man eigene Pro- 
gramme macht. Genau da- 
zu kann diess Buch Ihnen 
niitzlich sein. 



W. Hofacker 



Programme fur VC 20 



Spiele, Utilities, Erweite- 

rungen 

1982, 158 Seiten 

Dieses Buch hat sich zur 
Aufgabe gemacht, Sie mit 
vieien Tricks, Tips, Anlei- 
tungen zum Ausbau Ihres 
Systems und vor allem mit 
guten Programmen zu ver- 
sorgen. Wie immer haben 
wir neben vieien Spielen 
auch ernsthafte Dinge wie 
Wortprozessor, Speicher- 
erweiterung, Ein-/Ausga- 
be-Programmierung usw. 
fur Sie bereitgestellt. Alle 
Programme wurden bei 
uns sorgfaltig getestet. Aus dem Inhalt: Luftkrieg • U- 
Boot-Jagd ■ Uhr mit Wecker fur den VC 20 • Tricks for 
Ihren VC 20 • Peeks and Pokes. 




Bestellnummer HO 345 
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Angertmuam RMncr 



Angerhausen/Riedner/Schellenberger 

VC 20 Tips & Tricks 

1983, 201 Seiten 

Informationen und Bei- 
spielprogramme, die dort 
anfangen, wo das Hand- 
buch aufhort, ermoglichen 
es, die Moglichkeiten des 
VC 20 besser auszunutzen. 
Detailliert werden der 
Speicher und die Moglich- 
keiten seiner Erweiterung 
beschrieben. Zwei Kapitel 
befassen sich mit den 
Sound- und Grafikmoglich- 
keiten des VC 20. Eine 
Sammlung von POKE'S 
und anderen niitzlichen 
Routinen ist ebenso ent- 

halten wie BASIC-Erweiterungen und zahlreiche kom- 

plett dokumentierte Programme. 

Bestellnummer DB 418 DM&&- Z%FO 






VC-20 
Tips & Tricks 



VC-20 AnwenOer 
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M. Angerhausen/L Englisch 

VC-20 intern 

2. Auflage 1983, 174 Seiten 

Die uberarbeitete und er- 
weiterte 2. Auflage von 
VC-20 Intern beschaftigt 
sich detailliert mit Technik 
und Betriebssystem des 
VC-20 und enth&lt ein aus- 
fuhrlich dokumentiertes 
ROM-Listing, die Bele- 
gung derZeropage und an- 
derer wichtiger Bereiche, 
Obersichtliche Zusammen- 
fassungen der Routinen 
des Basic-Interpreters und 
des VC-20-Betriebssy- 
stems, eine Einfuhrung in 
die Programmierung in 
Maschinensprache, eine detaillierte Beschreibung 
der Technik des VC-20 und als Clou drei Original 
Commodore-Schaltplane zum Ausklappen! 

Bestellnummer DB 532 DM&0&- Z%fO 
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EIN DATA BECKER BUCH 



L Oswald 

Programme fur CBM 

1981, 24 Programme auf 
119 Seiten 

Das Buch "Programme fur 
CBM« soil jedem die Mog- 
lichkeit geben, leistungs- 
fahige Programme zu mini- 
malen Kosten auf seinem 
System zu implementie- 
ren. Bei der Zusammen- 
stellung der Programme 
wurde sowohl an den kom- 
merziellen Anwender so- 
wie an den Kreis derjeni- 
gen gedacht, der den Mi- 
krocomputer auch zur Zer- 
streuung in der Freizeit 
nutzen mochte. Deshalb 
sind Rechnungsschreib- 
programme, Textverarbeitung usw., aber auch lustige 
Spielprogramme wie Musik, Mause, Lotto usw. dabei. 

Bestellnummer HO 302 DM ifc^D % 9^ 




W. Hofacker 

Programmieren mit dem CBM 

1983, 138 Seiten 

Der GroBteil dieses Bu- 
ches besteht aus einer 
umfangreichen BASIC- 
Programmsammlung. Hier 
finden Sie eine bunte Pa- 
lette vom Black-Jack-Spiel 
uber Auftragsabwicklung 
bis hin zum HeilkrSuter- 
programm. 

Eine interessante und 
leicht verstandliche Ein- 
fOhrung in die Program- 
mierung in 6502-Maschi- 
nensprache schlieBt sich 
an. Am SchluB finden Sie 
dann ein Schaltbild sowie 
die gesamte Software for einen sehr leistungsfShigen 
EPROM-Brenner for Ihren CBM 3016 Oder 3032. 

Bestellnummer HO 571 DM 2^<p 
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D. Herrmann 

Hermanns CBM-Programme 2 

Wirtschaft for CBM 2000, 
3000, 4000, 8000 VC20 
Der zweite Band einer Rei- 
he von BASIC-Programm- 
sammlungen for CBM- 
Computer enthalt 40 Pro- 
gramme aus den Berei- 
chen Finanzmathematik, 
Unternehmensforschung 
(Operations Research) und 
Betriebswirtschaft. Wirt- 
schaftliche Fragestellun- 
gen treffen jeden von uns, 
entweder als Steuerzahler, 
Sparer Oder Kreditnehmer. 
So werden hier fOr alle 
Praktiker, Studenten und 
Comuterfans zahlreiche nutzliche und anwendungs- 
bezogene Programme aus vielfaltigen Bereichen. 

Bestellnummer IW 423 DMjJ^- /f£,~" 




C. Lorenz 

64 Programme fur den Commodore 64 

1983, 215 Seiten 

Die hier beschriebenen 64 
Programme bieten Ihnen 
alles, was Sie sich von ei- 
ner solchen Programm- 
sammlung erwarten. Viele 
nOtzliche Programme furs 
Buro und viele fur die Frei- 
zeit. Ebenso ist eine Zu- 
sammenstellung von Mo- 
dulen enthalten, die Sie 
f(jr Ihre eigenen Program- 
me gut verwenden und 
dort einbauen konnen. Da- 
zu gehoren z.B. Eingabe- 
maske, Rand, grafische 
Darstellungen usw. Fur 

Schuler sollen die Mathematikprogramme eine Hilfe 

sein. 




F. J. Heeg 

Phanomen Japan 



Bestellnummer HO 560 



DM>£- A%SO 



1983, 248 Seiten 
Japanische Organisa- 
tionsformen und ihre Uber- 
tragbarkeit auf deutsche 
Unternehmen 
Die wirtschaftlichen Erfol- 
ge Japans sind immer 
noch erstaunlich und Ober- 
raschend, so daB es nahe- 
liegt, die Frage zu stellen: 
Konnen wir von den Japa- 
nern lernen? 

Dieses Buch priift die 
Ubertragbarkeit japani- 
scher Methoden auf deut- 
sche Verhaitnisse, analy- 
siert die Grunde und die 
angewandten Strategien, um herauszuf inden, welche 
Muster sich moglicherweise erfolgreich anwenden 
lassen. 

dmX- 13,50 
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Worterbuch der Computerei 



Gilirther Daubach 

Worterbuch 

der Computerei 
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Bestellnummer IW 584 



1983, 144 Seiten 

Wer hat nicht bereits ver- 
zweifelt versucht, das 
»Computerchinesisch« zu 
verstehen! Hier hilft das 
Worterbuch der Compute- 
rei mit seinen uber tau- 
send Begriffen. AuBerdem 
sind die wichtigsten Be- 
griffe erklart. Ein handli- 
ches Nachschlagewerk fQr 
jeden, der sich mit Compu- 
terei beschaftigt. 
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GurrierO.Hamann 



BASIC 

Schritt fur S chritt mit 

SHARPMZ-700 



G. O. Hamann 

Basic — Schritt flir Schritt mit Sharp 

IVIZ-7U0 1983 ca 5 oo seiten 

Die Sharp-Computer der 
Serie MZ-700 (MZ-711, MZ- 
721, MZ-731)sind beispiel- 
haft fQr einen handlichen, 
kompakten, leicht er- 
schwinglichen Geratetyp 
und setzen einen neuen 
MaBstab im Hinblick auf 
das Preis-/Leistungsver- 
haltnis. Das Werk bietet ei- 
ne grundliche Einfuhrung 
in die Programmierung 
dieses Systems mit der be- 
kanntesten und mit Ab- 
stand verbreitetsten Pro- 
grammiersprache der 

Welt — Basic. Nach dem Durcharbeiten alier Lektio- 
nen sollen die Adressaten in der Lage sein, selbstan- 
dig leistungsfahige Programme zu erstellen. 

Bestellnummer BV 628 DNlj^O AH.^C 
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C. Lorenz/Ken Tracton 

57 praktische Basic-Programme 



C.lorenz 



Praktische 
BASIC 

Programme 



1979, 153 Seiten 

Ein Buch mit technisch- 
wissenschaftlichen Pro- 
grammen und einer gro- 
Ben Anzahl von Spielpro- 
grammen in Basic. Ein 
Buch fur jeden, der sich 
mit dem faszinierenden 
Hobby der Mikrocomputer- 
technik befassen will. Alle 
Listings sind in Basic und 
konnen auf den meisten 
Personal Computer-Syste- 
men gefahren werden. Alle 
Programme wurden sorg- 
faltig getestet. Zum Be- 
weis ist fQr jedes Pro- 
gramm ein Protokoll des Probelaufs abgedruckt. 

Bestellnummer HO 559 DM^H£- /IfyS'O 
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D. Possin 

CBasic - CB80 

1983, 187 Seiten 

CBasic ist eine Version, 
die sich von den meisten 
anderen BASIC-Dialekten 
abhebt, da sie keine Zei- 
lenstruktur aufweist, son- 
dern eine strukturierte 
Form anbietet, wie dies 
beispielsweise von Pascal 
her bereits bekannt ist. 
Dieses Buch ermoglicht 
die schnelle Einarbeitung 
in die Programmierspra- 
che CBasic. Alle Eigen- 
schaften werden mit Bei- 
spielen ausfuhrlich erlau- 
tert. Syntaxdiagrammezei- 

gen grafisch die Einsatzmoglichkeiten der Anweisun- 

gen. 



. ■ 
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K. W. Hillerkus 

aus der Praxis 



v 



derPrans 









Typische Programmbei- 
spiele fur alle Berufe 
1983, 163 Seiten 

Dieses Buch enthalt 30 
lauffahige Programme aus 
den Arbeitsbereichen: Su- 
chen — Schreiben — 
Rechnen — Sortieren. Sie 
sind an keinen Rechner 
gebunden, da sie unter 
CP/M und MBasic ge- 
schrieben sind. Sie ent- 
standen aus der prakti- 
schen Arbeit heraus und 
haben sich deshalb be- 
reits bewahrt. Auch der 
"Newcomer* kann sie oh- 



ne Schwierigkeiten einsetzen 
Bestellnummer IW 573 
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K. W. Hillerkus 

Basic aus der Praxis 



HT^ 
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Bestellnummer IW 583 



Programm-Beispiele fur 

kaufmannisch orientierte 

Berufe 

1983, 192 Seiten 

Dieses Buch umfaBt 34 
Programme und Routinen 
aus den Arbeitsbereichen: 
Suchen — Schreiben — 
Rechnen — Sortieren — 
Statistik. Die Programme 
sind unter CP/M in MBasic 
geschrieben und konnen 
somit leicht auf andere 
Rechner umgesetzt wer- 
den. 

DM>£- 20 t - 
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H. Sterner/D. Herrmann 

Wirtschaft auf dem Apple II + , lie 



Basic-Programme fur den 

Anwender 
1983, 200 Seiten 

Diese Sammlung enthalt 
40 BASIC-Programme fQr 
den Apple ll/lle aus den 
Bereichen Finanzmathe- 
matik, Unternehmensfor- 
schung und Betriebswirt- 
schaft. Wirtschaftliche 
Fragestellungen treffen je- 
den von uns, entweder als 
Steuerzahler, Sparer oder 
Kreditnehmer. Zahlreiche 
Beispiele erlautern die 
vollstandigen Programme. 



rWSKL Prorjrarnrrx' 
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Bestellnummer IW 585 



Der Apple-Hardware-Wegweiser '83 



Der Apple 
Hardware^ 

Peripherie 
Wegweiser 



260 Seiten. 
Bestellnummer IW 408 



Dieser Apple-Wegweiser 
wendet sich an alle Benut- 
zer, die nach geeigneten 
kompatiblen Erweiterun- 
gen ihrer Systeme suchen. 
Das Buch umfaBt 300 Pro- 
dukteintragungen mit 120 
Lieferantenadressen deut- 
scher und intemationaler 
Hersteller und Anbieter. 
Die Unterteilung in 27 
Hauptkategorien und 86 
Produktklassen, erganzt 
durch einen umfangrei- 
chen Index, ermoglicht ei- 
ne klare und schnelle Pro- 
dukteinschatzung. Etwa 



B. Pol 

Wie man in BASIC programmiert 



CHIP 

WISSEN 



Wie man in BASK 
programmiert 



Einfiihrung Techniken - 

Fallstudien 

1981, 367 Seiten 

Im ersten Kapitel wird der 
Leser an die Grundlagen 
des Programmierens mit 
Basic herangefOhrt. Im 
zweiten werden die wich- 
tigsten Programmierhilfs- 
mittel besprochen. Das 
dritte Kapitel 9chlieBlich 
macht den L6wenanteil 
aus: Hier soil als Fallstu- 
die ein (sehr) einfaches La- 
gerverwaltungsprogramm 
erstellt und daran die bis 
dahin erworbenen Erkennt- 



nisse vertieft und erweitert werden. 
Bestellnummer VO 376 DM JN£- 



R. Baumann 

Spiel, Idee und Strategie programmiert 
in Pascal 



1983, 326 Seiten 

Das Buch ermoglicht dem 
Leser zu spielen, sich zu 
unterhalten, seine geisti- 
gen Fahigkeiten auszubil- 
den und gleichzeitig 
Kenntnisse im Program- 
mieren mit Pascal zu ge- 
winnen und zu vertiefen. 
Es verlangt und fordert 
vorausschauendes und 
schfuBfolgerndes Denken, 
Analysieren und Kombi- 
nieren und fUhrt vom Spiel- 
konsum weg zum kreati- 
ven Umgang mit Spielen 
und etwas Mathematik. 

™3*T A*i50 
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•'.dago- fictoxm 

Spiel, Idee und 

Strategic 

programmiert in Pascal 
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Strukturlertes 
Programmieren in 



**'*m 



D. Price 

Strukturlertes Programmieren in Pascal 

1983, 235 Seiten 

Dieses Buch gibt eine voll- 
standige Einfuhrung in die 
Programmiersprache Pas- 
cal. Erfahrung im Program- 
mieren oder besondere 
mathematische Kenntnis- 
se werden nicht vorausge- 
setzt. 

Gut verstandliche Erkla- 
rungen und Musterpro- 
gramme erleichtern Ihnen 
die Anwendung neuer Pro- 
grammier-ldeen. Gleich- 
zeitig- werden Sie mit dem 
Gedanken des »struktu- 
rierten Programmierens« 
vertraut gemacht, dessen 
Ziel die Erstellung von leicht lesbaren und leicht zu 
verwendenden Computerprogrammen ist. 

Bestellnummer ID 575 DM 2><J) AHflO 
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G. Schnell/K. Hoyer 

Mikrocomputer-lnterfacefibel 

1984, 175 Seiten 

Uber die Anschaltung der 
Mikroprozessoren an Peri- 
pheriegerate existiert lei- 
der sehr wenig allgemeine 
Information. Dieser Man- 
gel wird durch die »lnterfa- 
cefibel« in hervorragender 
Weise behoben. 
Die ausfQhrlich kommen- 
tierten Interface-Program- 
me sind in der leicht ver- 
standlichen, mikroprozes- 
sorunabhangigen Assem- 
blersprache CALM ge- 
schrieben. Sowohl fur den 
Studenten der Informatik 
und Datentechnik als auch fQr den einschlagig tSti- 
gen Ingenieur, PhysikerundTechnikerein immerwie- 
der hilfreiches Arbeitsbuch. 



OwhwiSdinrf 
»knuAdlto|fw 

Mikrocomputer 

Interface 

nan 



Bestellnummer W 639 
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G. Tatzl 

Praktische Problemanalyse 



1983, 319 Seiten 

Dieses Buch — aus den 
Erfahrungen langjahriger 
Praxis fQr die Praxis ge- 
schrieben — leistet einen 
Beitrag zur Behebung der 
vielzitierten Softwarekrise. 
Ohne den Leser in ein en- 
ges Denkschema zu pres- 
sen, wird bei Wahrung ei- 
nes MindestmaBes an Sy- 
stematik vorwiegend die 
kreative und intuitive Seite 
angesprochen. Anhand 
einfacher bis mittlerer Bei- 
spiele wird in diesem Buch 
der Weg eines »springen- 
den Funkens« verfolgt. 

Hieraus lassen sich optimale Problemgestaltungen 

abieiten. 

BestellnummerV0 612 DM>^- 2l t S0 





G. Oetzmann 

Programmieren von Mikrocomputern 2 



1981, 115 Seiten, mit zahl- 
reichen Beispielen, 8 voll- 
standigen Programmen 
und 32 Bildern 

Die Rechner der Serien 
cbm 2001 und cbm 3001 
konnen in cbm-BASIC pro- 
grammiert werden, einer 
BASIC-Variante mit ver- 
schiedenen herstellerspe* 
zifischen Besonderheiten. 
Dieser zweite Band der 
Reihe »Programmieren 



Lehr- und Obungsbuch 
fur die Rechnersaien 
cbm2001undcbm30Ca 



G.Oettmaan 



Vtejrw 



' - 



von Mikrocomputern« ent- 
halt eine umfassende Einfuhrung in cbm-BASIC, oh- 
ne daft Programmierkenntnisse vorausgesetzt wer- 
den. Neben der Vermittlung der Sprache wird an ver- 
schiedenen Beispielen der Weg von der ersten L6- 
sungsidee bis zum fertigen Programm demonstriert. 

BestellnummerVV313 DM^JO AH.^0 



G. Oetzmann 

Programmieren von Mikrocomputern 5 



Lehr- und Obungsbuch fur 
die Rechnerserien CBM 
4001 und CBM 8001 
1983, 119 Seiten 

Die Rechner der Serien 
CBM 4001 und CBM 8001 
konnen in CBM-Basic pro- 
grammiert werden, einer 
Basic-Variante mit ver- 
schiedenen herstellerspe- 
zifischen Besonderheiten. 
Dieser Band enthalt eine 
umfassende EinfOhrung in 
CBM-Basic, ohne daB Pro- 
grammierkenntnisse vor- 
ausgesetzt werden. Neben 




f&<£eRechnerseaJea 
dara^OCtisidcbm 







5 REM 

:f -J 2 THEN RETUR 
hl-t 

Hi ■ 

■ 

■ - 

■ 



der Vermittlung der Spra- 
che wird an verschiedenen Beispielen der Weg von 
der ersten Losungsidee bis zum fertigen Programm 
demonstriert. 

DMi<0 AH^C 
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Programmieren von Mikrocomputern 7 




Lehr- und Ubunosbuch 

fiir 

Ccamnodore- 

\fcQcscomputar 






Vwwy 



Ida R€M H«-f*<2. Fft€IEP 

110 i»e iM^e 

UB X«I*1 :1F R(IXS 
130 IF RO»S THEN RE 
140 IF F<I>*© THEM N* 
150 1-1*1 5OOTO130 
200 RCM WEO * GEGEMM 

220 1-1*1 iIF mi- 



ben der Vermittlung der 
der ersten Losungsidee 
an verschiedenen Beispi 
Bestellnurnmer VV 576 



Lehr- und Obungsbuch fiir 

Commodore-Volkscompu- 

ter 

1983, 109 Seiten 

Commodore-Volkscompu- 
ter konnen in einer gegen- 
uber der Standardversion 
deutlicti erweiterten Va- 
riante der Programmier- 
sprache Basic program- 
miert werden. Dieses Buch 
bietet eine umfassende 
Einfuhrung in VC-Basic, 
ohne daft Programmier- 
kenntnisse vorausgesetzt 
werden. Besonderer Wert 
wurde darauf gelegt, ne- 
Sprache auch den Weg von 
bis zum fertigen Programm 
elen zu demonstrieren. 



P. Kahfig 

Programmieren von Mikrocomputern 8 

Assembler-Programmie- 
rung von Mikroprozes so- 
re n (8080, 8085, Z80) mit 
dem ZX81 




AsaenMei-Piogt&Tiru&wag 
von Mikroprozessoren 
(9080, 80B&Z80)nfltdem ZXK 






Source 

30'. 









*•< 



i£?!4 




A 


1E5I4 


?,* 


53(3 


I * 




RET 


.317 


E>C 


I 



1983, 185 Seiten 

Das Buch bietet Ubungen 
zur Assembler-Program- 
mierung der Mikroprozes- 
soren 8080, 8085 und Z80, 
die mit dem Mikrocompu- 
ter Sinclair ZX 81 durchge- 
fOhrt wird. Der Leser soil 
dadurch angeregt werden, 
sich vertiefte Hardware- 
und Software-Kenntnisse 
anzueignen. 

Aus dem Inhalt: Hilfspro- 
gramm »KEY« — Eingabe von Konstanten und Regi- 
stern — Loschen von Registern — Addition, Subtrak- 
tion, Multiplikation, Division und Kehrwert von 8-Bit- 
Daten — Anhang. 

Bestellnurnmer W 577 DM iC- A9,~ 



W. Schneider 

Programmieren von Mikrocomputern 9 




EuBfUhrung in die 
Anwendung des 
Betnebssystems CP/M 



WS-. 



Vteweg 



Einfuhrung in die Anwen- 
dung des Betriebssystems 
CP/M 
1983, 146 Seiten 

Das Buch gibt eine grund- 
legende Einfuhrung in das 
for 8-Bit-Mikrocomputer 
bevorzugte CP/M-Betriebs- 
system. Es werden alle die 
Kommandos besprochen, 
die der Anwender im Nor- 
malfall benotigt. 
Aus dem Inhalt: Aufbau 
von Datenverarbeitungs- 
anlagen — Programmier- 
sprachen — Betriebssy- 
steme — Grundlagen des 
CP/M-Betriebssystems — Starten des CP/M-Betriebs- 
systems — CP/M-Dateinamen — Kopieren der CP/M- 
Betriebssystemdiskette — Das DIR-Kommando. 

Bestellnurnmer W 578 DmJ^O AH.HC 
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N. Hoffmann 



Anwendung von Mikrocomputern 1 



Anwendung 
von Mikrocomputern 



Digitate Regelung mit Mi- 
kroprozessoren 
1983, 169 Seiten 

Das Buch ermoglicht, ein 
funktionsfahiges Mikro- 
prozessor-Regelsystem zu 
entwerfen und zu realisie- 
ren. Vorausgesetzt wird 
die Kenntnis des Aufbaus 
und der Programmierung 
von Mikrocomputern. 
Inhalt: Grundlagen der di- 
gitated Regelung — Prak- 
tische Probleme: Verbin- 
dung von ProzeS und 
Rechner/Verschiedene De- 
tail probleme/Ty pen digita- 
ler Regler/Systemplanung — Vollstandige Dokumen- 
tation eines Regelsystems mit dem AIM-65 als Regler 

Bestellnurnmer VV 435 DNl£^- Z % — 



Digitate Regelung 
mil Mikroprozessoren 




Hortwrt Hoffmann 
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D. Herrmann 

Anwendung von Mikrocomputern 2 

30 BASIC-Programme 
1983, 70 Seiten 

Dieser Band stellt BASIC- 
Programme fur die wicn- 
tigsten statistischen Tests 
bereit. Er liefert numeri- 
sche Prozeduren fOr die 
Verteilungsfunktionen, so 
daB man vo Nig ohne Tabel- 
lenwerte auskommt. Be- 
rQcksichtigt sind auch pa- 
rametrische Tests, da vie- 
le Daten aus dem Bereich 
der Soziologie, Psycholo- 
gie, Padagogik usw. nicht 
hinreichend bekannten 
Verteilungen unterliegen. 
Alle Programme verzichten auf spezielle Maschinen- 
befehle und sind damit auf alle BASIC-Computer 
ubertragbar. 

Bestellnurnmer VV 437 




Wahrsch einlichkeits - 
redlining und Statlstik 

30 BASIC -Progrwnnw 
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H. Schumny 

Mikroprozessoren 





HiKRO 
PRGZESSOREn 
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1983, 240 Seiten 

Das Arbeitsbuch besteht 
aus zwei Teilen, die auch 
selbstandig nutzbar sind. 
Teil 1 behandelt "Grundla- 
gen und Basisoperatio- 
nen« und stellt eine Ein- 
fOhrung for Anfanger dar, 
ist aber auch als Repetito- 
rium fQr Fortgeschrittene 
geeignet. Teil 2 hat die 
»Programmierung im Ma- 
schinencode« zum Inhalt. 
Dies ist also der eigentli- 
che Arbeitsteil. Durch be- 
sondere grafische Gliede- 
rung wird dieser Teil dem 
Einsteiger das Arbeiten erleichtern. Fortgeschritte- 
nen wird dadurch mit schnellem Zugriff das Wieder- 
holen oder Vertiefen ermCglicht. 



Vbrgd 

ObUDBl 'i 
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99 Special I 




99 sp^w i 



1983, 298 Seiten 

Das Buch f uhrt vom spiele- 
rischen Beginn metho- 
disch aufbauend den Tl 
99/4A-Anwender zu kom- 
plexer Programmierung. 
Programmbeispiele sind 
nach steigendem Schwie- 
rigkeitsgrad in die Katego- 
rien Spiele, Mathematik, 
Datenorganisation, Grafik 
usw. unterteilt; Bespiel- 
Programmlistings runden 
den Inhalt ab. Fur Leute, 
die bereits wissen, was 
Basic ist und die die ganze 
Palette von verfugbaren 
Programmiersprachen zum Tl 99/4A erfahren wollen. 

Bestellnurnmer TE 618 DM4>^0 2V f-f 




, TtXAS fc, 

Instruments *? 



6502-ANWENDUNGEN 



1983, 288 Seiten, 205 Ab- 
bildungen 

Das Eingabe-/Ausgabe- 
Buch for Ihren 6502-Mikro- 
prozessor. Das Buch ist 
nach dem Konzept »Ler- 
nen durch Praxis« aufge- 
baut. Es stellt die notwen- 
digen Hardwarekompo- 
nenten vor und die dafur 
meist genutzten Program- 
me. Der Zweck eines jeden 
Programms, sein FluBdia- 
gramm, die Schaltung und 
die im Programm verwen- 

deten Programmiertechni- 

ken, werden eingehend be- 

schrieben. Viele Anwendungsbeispieie helfen Ihnen, 

das Erlernte in die Praxis umzusetzen. 
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Dr. J. Martin 

Einfiihrung in die 

Datenbanktechnik 

1981, 369 Seiten 

Dieses Buch eines weltbe- 
ruhmten Experten fuhrt in 
didaktisch hervorragender 
Weise in die Datentechnik, 
die Datenbanktechnik so- 
wie in das dazugehorige 
Umfeld ein. Es eignet sich 
wegen der systemati- 
schen Uberblicksinforma- 
tion sowohl fur den fach- 
lich schon tiefer Informier- 
ten als auch for diejeni- 
gen, die als verantwortli- 
che Entscheidungstrager 
Ober diese Thematik Be- 
scheid wissen mussen. 
Dem Autor ist es gelungen, dieses fiir unsere Zukunft 
so wichtige Gebiet fundiert darzustellen. 
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Autostart 



C64 



> 



<181 

<010> 

<073> 

<050> 

<075> 

<163> 

<187> 

<229> 

<051> 

<055> 



1 00 REM***************************** 

101 REM* P-BASIC-V2. * 

102 REM* * 

103 REM* GESCHRIEBEN 1984 VON * 

104 REM* * 

105 REM* JAN KUSCH * 

1 06 REM***************************** 

107 FOR X=0 TO 255: READ A:S=S+A 

108 POKE 49152+X,A:NEXT 

109 IF S=26106 THEN 112 

110 PR I NT " CD0WN5 D7FEHLER [SPACE DIN CSPACE 3DATAS 
[SPACE!:" <211> 

111 PRINT H PRUEFSUMMECSPACE3: "S" CSPACE2 3 (26106) " 
:END <048> 

112 POKE 49152+X,ASC < " ! " > <182> 

113 SYS 49152: NEW <240> 

114 DATA 169, 17,141,8,3, 169,192, 141,9,3, 169,49, 
160,192,76,30,171 <165> 

115 DATA 32,115,0,205,0,193,240,3,76,231,167,32, 
115,0,201,147,240 <161> 

116 DATA 64,201,148,240,88,201,162,240,3,76,8, 
175,76,180,192,147,144 <101> 

117 DATA 18,32,208,45,194,65,83,73,67,45,214,50, 
46,32,32,13,195 <112> 

118 DATA 45,54,52,32,38,32,214,195,45,49,53,52, 
49,13,195,79,80 <074> 

119 DATA 89,82,73,71,72,84,32,40,67,41,9,14,8,0, 
169,0,133 <068> 

120 DATA 157,32,115,0,32,212,225,169,0,166,43, 
164,44,133,10,32,213 <225> 

121 DATA 255,134,45,132,46,76,180,192,169,0,133, 
157,32,115,0,32,212 <037> 

122 DATA 225,162,0,189,218,192,157,64,3,232,201, 
255,208,245,169,38,133 <207> 

123 DATA 43,169,3,133,44,169,64,141,36,3,141,38, 
3,169,3,141,37 <058> 

124 DATA 3,141,39,3,32,68,229,32,89,225,169,1, 
133,43,169,8,133 <068> 

125 DATA 44,169,87,141,36,3,169,241,141,37,3, 
141,39,3,169,202,141 <210> 

126 DATA 38,3,169,237,141,40,3,169,0,133,198,76, 
49,168,169,1,133 <178> 

127 DATA 43,169,8,133,44,169,87,141,36,3,169, 
241 , 141 ,37,3, 141 ,39 < 173> 

128 DATA 3,169,202,141,38,3,169,225,141,40,3,32, 
89, 166,76, 174, 167 <222> 

129 DATA 255 <160> 




100 
101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 



SYS 9*4096 
*=49152 



.OPT OO 



############################## 
* * * P - BASIC - V2. * * * 
############################## 

*GESCHRIEBEN1984V ON* 



♦JANKUSCH ( J-KSOFT) * 



**************************** 



############################## 
####### VEK TO RSETZUNB ######## 
############################## 



LDA #<ERKENNUNG 
LDA #>ERKENNUNG 

LDA #<DATA S 
JMP $AB1E 



STA $0308 
STA $0309 

LDY #>DATA S 



;############################## 



66 



129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 
163 

164 
165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 



;######### ERKENNUNB ########## 
; ############################## 
ERKENNUNG JSR $0073 : CMP BEFEHL 
BEQ ENTSCHEIDUNG 
JMP $A7E7 

ENTSCHEIDUNG JSR $0073 



CMP #147 
CMP #148 
CMP #162 
JMP $AF08 

NEW 1 



BEQ LOAD 
BEQ SAVE 
BEQ NEW 1 



JMP NEW 



############################## 

########### DATA S ############ 

############################## 
DATA S -ASC "[CLEAR, BLACK, RVSON, SPACE 3 
.E-JASIC-y2- CSPACE21" 
-BYTE 13 : -ASC "£-6 4 [SPACE ^[SPACED ££-1541 " 
-BYTE 13 : -ASC "£PPYRIGHT[SPACE3 (C) " 
-BYTE 9,14,8,0 



; ############################## 
;######## BEFEHL -LOAD ######## 

; ############################## 

LOAD LDA #0 : STA $9D 

JSR $0073 : JSR $E1D4 

LDA #00 : LDX $2B : LDY $2C 

STA $0A s JSR $FFD5 

STX $2D : STY $2E 

JMP NEW 

t 

a 
9 

; ############################## 
;####### BEFEHL .SAVE ######### 
; ############################## 
SAVE LDA #00 
STA $9D : JSR $0073 5 JSR $E 



1D4 



186 
187 
188 
189 
190 
191 



LDX #00 
VERSCHIEBUNG 
STA $0340, X 
CMP #$FF 

■ 

LDA #<806 
LDA #>806 
LDA #<832 
LDA #>832 

■ 

JSR $E544 

NEW LDA #1 
LDA #8 
LDA #$57 
LDA #$F1 
LDA #$CA 
LDA #237 
LDA #0 



LDA ROUTINE, X 

INX 

BNE VERSCHIEBUNG 



STA $2B 
STA $2C 
STA 804 
STA 805 

JSR $E159 

STA $2B 
STA $2C 
STA 804 
STA 805 
STA 806 
STA 808 
STA 198 



STA 806 
STA 807 



: STA 807 



JMP $A831 



******* STEUERROUT I ENE ******* 



193 
194 
195 
196 
197 
198 
199 
200 
201 
202 



ROUTINE LDA #1 

LDA #8 

LDA #$57 

LDA #$F1 

LDA #$CA 

LDA 



STA 
STA 
STA 
STA 
STA 
STA 



$2C 
804 
805 
806 
808 



STA 807 



JSR $A659 



-BYTE $FF 



JMP $A7AE 



BEFEHL - BYTE " ! ■ 
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Toolkit 



Toolkit fur 




rammierer 



Nicht jeder kann sich professionelle 
Toolkits wie zum Beispiel Ex-Basic Le- 



vel II leisten. Dieses Programm hat 
deshalb einige der wichtigsten Funk- 
tionen, die das Programmieren sehr 
erleichtern. 

Dieses Programm fur den Commodore 64 bietet 8 leistungs- 
fahige Befehle und 2 zusatzliche Funktionen, die bei der Pro- 
grammerstellung und beim Austesten von Programmen be- 
sonders nutzlich sind. Hier die Erklarung zu den einzelnen 
Befehlen: 

!AUTOX,Y 

Dieser Befehl erspart Ihnen das Eintippen der Zeilennum- 
mern. Mit X geben Sie die Anfangszeilennummer ein. Mit Y die 
Schrittweite, urn welcher die Zeilennummem erhoht werden 
sollen. X kann eine positive Integerzahl sein. Y kann im Bereich 
von 0-255 liegen. Wenn Sie den AUTO-Befehl eingetippt ha- 
ben, erscheint nach Drucken der C= Taste zusammen mit der 
Taste FT die erste Zeilennummer. Schreiben Sie nun Befehle 
hinter die Zeilennummer und schlieBen Sie mit RETURN ab. 
Wenn Sie nun wieder die Taste C= und F7 drucken, erscheint 
eine urn Y erhohte Zeilennummer. Abgeschaltet wir die AUTO- 
Funktion mit der C= Taste zusammen mit PI. AuBerdem wird 
diese Funktion abgeschaltet, wenn Sie RUN/STOP und 
RESTORE drucken. 

!DUMP 

Damit konnen Sie sich samtliche Variablen mit ihrem aktuel- 
len Inhaltansehen. Indizierte Variablen werden nicht mit ausge- 
geben. Das Auflisten der Variableninhalfe kann mit der CTRL- 
Taste verlangsamt, oder mit der STOPTaste abgebrochen 
werden. 

!FIND 

Hierbei muB unterschieden werden zwischen dem Suchen 
in Zeichenketten und dem Suchen von Befehlen und Varia- 
blen. Zum Beispiel: »!FIND "TEST"«; »!FIND GOTO1000« Oder 
»! FIND A$«. Es werden jeweils die kompletten Zeilen gelistet in 
denen der Suchbegriff vorkommt. Dieser Vorgang kann wie bei 
dem DUMP -Befehl mit der CTRL - Taste verlangsamt oder mit 
STOP ganz abgebrochen werden. 

!KILL 

litecht statt einzelne Zeilen ganze Zeilenblocke. 
Beispiel: 
IKILL 100-200 — loscht die Zeilen 100 bis einschliefflich 

200. 
!KILL -300 — loscht die Zeilen vom Programmanfang 

bis einschlieBlich 300. 
IKILL 1800- — loscht die Zeilen ab 1800 bis zum Pro- 

grammende. 

Bei diesem Befehl muB folgendes beachtet werden: 

Die erste Zeilennummer muB kleiner als die Endzeilennum- 

mer sein. Weiter ist notwendig, daB die Anfangszeilennummer 

im Programm existiert. Andemfalls kommt die Fehlermeldung 

'SYNTAX ERROR'. Bei umfangreicheren Zeilenblocken dauert 



die Ausfuhrung dieses Befehls eine Weile. Mit der Taste 'F7' 
kann das Loschen von Zeilenblocken abgebrochen weden. 

!LOAD 

Dieser Befehl hangt an einem im Speicher befindlichen Pro- 
gramm ein weiteres an. Die Syntax ist wie bei dem LOAD- 
Befehl. Es ist vorteilhaft, wenn das nachzuladende Programm 
hohere Zeilennummem hat, aber nicht unbedingt notwendig. 
Sie haben ja mit dem RENUM-Befehl die Moglichkeit das Pro- 
gramm neu zu numerieren. Nur bei gleichen Zeilennummem 
kann es zu Fehlern beim Umnumerieren der Sprungbefehle 
kommen. 

IRENUM 

Hiermit numerieren sie Ihr Programm mit einer von Ihnen an- 
gegebenen Schrittweite neu durch. Sie haben bei diesem Be- 
fehl mehrere Moglichkeiten. 

IRENUM — ohne weitere Parameter numeriert das komplette 
Programm in Zehnerschritten durch. Die erste Zeilennummer 
ist 10. 

IRENUM X,Y — Hierbei ist X die erste neue Zeile und Y die 
Schrittweite. 

IRENUM X,Y,Z — Damit numerieren Sie nicht das komplette 
Programm neu, sondern ab der Zeile die in Z angegeben ist. Z 
muB dabei kleiner als X sein. Als Parameter werden jeweils po- 
sitive Integerzahlen erwartet. Selbstverstandlich werden samt- 
liche Sprungbefehle (GOTO, GOSUB, THEN, ON X GOTO (GO- 
SUB), RUN) mit umnumeriert. 

ITRACE 

Damit konnen Sie ein Programm schrittweise abarbeiten. 
Nachdem Sie ITRACE eingegeben und ein Programm mit RUN 
gestartet haben, wird in den oberen beiden Zeilen des Bild- 
schirms die Zeile gelistet, die'geradebearbeitetwird. Damit Sie 
sehen, welcher Befehl in dieser Zeile gerade ausgefuhrt wird, 
wird dieser revers dargestellt. Zur Steuerung der TRACE- 
Funktion stehen Ihnen die Tasten F1 und F7 zur Verf ugung. Mit 
F1 wird ein schneller Trace ausgefuhrt. Mit F7 wird immer nur 
der nachste Befehl bearbeitet. Verlassen konnen Sie die 
TRACE-Funktion, wenn Sie beim schnellen Trace die STOP- 
Taste drucken. 

!OFF 

schaltet die TRACE-Funktion aus. 

Samtliche Befehle konnen auch innerhalb eines Programms 
benutzt werden. Sinnvoll ist dies aber wohl nur bei IDUMP, 
ITRACE und IOFF. Zu den zwei zusatzlichen Funktionen: 

1. Trifft der Computer wahrend des Programmlaufs auf einen 
Fehler, so wird automatisch die fehlerhafte Zeile gelistet. Der 
Cursor steht direkt unter der fehlerhaften Zeile. 

2. Beim Listen eines Programms konnen Sie den Listvorgang 
mit der Taste F7 anhalten. Sie konnen sich Ihr Listing nun in Ru- 
he betrachten. Soil der Listvorgang fortgefuhrt werden, so 
drucken Sie die SPACE-Taste. Ein mit der Taste F7 angehalte- 
nes Listing kann mit der Taste F1 unterbrochen werden. Die 
STOPTaste steht hierfur nicht zur Verfugung. Bei der Taste F1 
wird BREAK und READY (wie es bei der STOPTaste der Fall ist) 
nicht mit ausgegeben. Sie haben so mehr Platz fur Ihr Listing. 
Zu dem Programm selbst. Es steht in dem Bereich ab Spei- 
cherstelle 49152. Dieser Bereich wird vom Basic nicht be- 
nutzt. Aktiviert wird das Programm mit SYS 51100. Wollen Sie 
ein anderes Programm in diesem Bereich nutzen, so mussen 
Sie das Toolkit abschalten. Dies erreichen Sie mit einem 
System-Reset (SYS 64738). 

Nach erfolgreichem Eintippen sollten Sie das Programm 
(Bild 1) mit einem Maschinensprachenmonitorspeichem. Die 
Ladezeit verringert sich dadurch erheblich. Besitzen Sie kei- 
nen solchen Monitor, so benutzen Sie das kurze Programm in 
Bild 2. (Herbert Kunz / gk) 
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REM 

REM 
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REM 

REM 

REM 

REM 

REM 

REM 

REM 
REM 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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TOOL -KIT FUER C= 64 

HERBERT KUNZ 
FIMBERBSTR. 28 

3163 SEHNDE 1 
***************************** 



***** BLOCK 1 
32,32,32,32,32,32,32,32,32,32 
32,42,42,42,32,84,79,79,76,45 
75,73,84,32,42,42,42,13,32,32 
32,32,32,32,32,32,32,32,32,40 
67,41,32,72,46,32,75,85,78,90 
32,49,57,56,52,32,32,84,82,65 
67,69,35,68,85,77,80,35,35,79 
70,70,35,35,35,70,73,78,68,35 
35 , 82 , 69 , 78 , 85 , 77 , 35 , 65 , 85 , 164 
35,35,35,75,73,76,76,35,0,193 
DATA 58,194,11,193,146,195,123,197 

DATA 250, 194, 109, 196,32,68,229, 162 
DATA 255,232,189,16,192,32,210,255 
DATA 224,55,208,245,169,155,141,8 
DATA 3,169,192,141,9,3,96,32,115 
DATA 0,201,33,240,6,32,121,0,76,231 
DATA 167, 169,73, 133, B0, 169, 192, 133 
DATA 81,160,0,140,7,192,76,98,200 
DATA 209,80,240,17,170,152,24,105 
DATA 6,201,42,240,20,238,7,192,168 
DATA 138,76,184,192,200,177,80,201 
DATA 35,240,10,32,115,0,209,80,240 



242,76,8,175,173,7,192,10,170 
189,114,192,141,241,192,232 
189, 1 14, 192, 141 ,242, 192,32, 146 
195,76,132,195,234,234,234,234 
DATA 234 , 234 , 234 , 234 , 234 , 234 , 1 69 
DATA 22,141,8,3,169,193,141,9,3,96 
DATA 169,155,141,8,3,169,192,141 
DATA 9,3,96,165,157,240,3,76,155 
DATA 192, 165, 122, 141 ,0, 192, 165, 123 
DATA 141,1 

S=0:FOR 1= 49168 TO 49445 : READ D 
POKE I,D:S=S+D:NEXT 

IF SO29085 THEN PR I NT "FEHLER CSPACE 1 IN 
CSPACE HBL - CSPACE 31": STOP 
REM ***** BLOCK 2 ***** 
DATA 192,165,211,141,2,192,165,214 
DATA 141,3,192,32,135,234,165,203 
DATA 201,3,208,20,32,135,234,165 
DATA 203,201,64,208,247,169,0,141 
DATA 232,7,32,121,193,76,95,193,201 
DATA 4,208,5,169,1,141,232,7,173 
DATA 232,7,240,213,32,121,193, '^3 
DATA 0,192, 133, 122, 173,1, 192, 13o 
DATA 123,173,2,192,133,211,173,3 
DATA 192,133,214,32,108,229,76,155 
DATA 192,169,0,133,15,165,57,133 
DATA 20,133,99,165,58,133,21,133 
DATA 98,32. i ?, 166, 169,80, 141 ,4, 192 
DATA 32,102,229,169,32,32,210,255 
DATA 206,4,192,173,4,192,208,243 

DATA 32,102,229,32,209,189,160,3 
DATA 169,32,132,73,32,210,255,164 

DATA 73,177,95,201,34,208,6,165,15 
DATA 73,255,133,15,200,132,73,177 
DATA 95,208,1,96,201,255,240,227 

DATA 36, 15, 4B, 223, 165,73,56,233,1 
DATA 24, 101 ,95, 141 ,5, 192, 176,8, 165 
DATA 96,141,6,192,76,235,193,165 
DATA 96,24,105,1,141,6,192,173,5 
DATA 192,205,0, 192,208, 13, 173,6, 192 
DATA 205,1,192,208,5,169,18,32,210 
DATA 255,164,73,177,95,16,38,56,233 
DATA 127,170,160,255,202,240,8,200 
DATA 185,158,160,16,250,48,245,200 
DATA 185,158,160,48,5,32,210,255 
DATA 208,245,41,127,32,210,255,169 
DATA 146,76,173,193,165,15,240,5 
DATA 177,95,76,36,194,177,95,76,173 
DATA 193,165,45 
S=0:FOR 1= 49446 TO 49723 :READ D 

236 POKE I,D:S=S+D:NEXT 

237 IF S035613 THEN PRINT"FEHLER CSPACE 1 IN 



DATA 
DATA 

125 DATA 

126 DATA 
127 
128 
129 
130 
131 
132 
133 
134 
135 

200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 

213 
214 
215 
216 
217 
213 
219 
"220 

221 



223 
224 
225 
226 
227 
22B 
229 
230 
231 
232 
233 
234 



<091> 

<163> 

<028> 

<183> 

<169> 

<088> 

<213> 

<14B> 

<233> 

<179> 

<242> 

<051> 

<102> 

<147> 

<125> 

<104> 

<152> 

<148> 

<175> 

<151> 

<226> 

<154> 

<161> 

<159> 

<148> 

<105> 

<050> 

<164> 

<166> 

<097> 

<091> 

<145> 

<158> 

<129> 

<159> 

<059> 

<210> 

<218> 

<064> 

<162> 

<070> 

<074> 

<155> 

<250> 

<047> 

<018> 

<089> 
<152> 
<227> 
<174> 
<119> 
<178> 
<031> 
<132> 
<177> 
<126> 
<128> 
<246> 
<146> 
<144> 
<003> 
<187> 
<148> 

<144> 
<196> 

<000> 
<198> 
<155> 

<204> 
<000> 
<173> 
<151> 
<046> 

< 249 > 
<073> 

< 244 > 
<006> 
<165> 
<006> 
<172> 
<098> 
<103> 
<147> 
<120> 



321 
322 



CSPACE DBL. CSPACE32 ,, :STOP 

300 REM ***** BLOCK 3 ***** 

301 DATA 164,46,133,20,132,21,196,48 

302 DATA 208,2,197,47,176,24,105,2,144 

303 DATA 1,200,133,34,132,35,32,128,194 

304 DATA 32,180,194,138,16,7,32,189,194 

305 DATA 76,111,194,96,152,48,6,32,205 

306 DATA 194,76,111,194,32,214,194,169 

307 DATA 13,32,145,200,165,20,164,21 

308 DATA 24,105,7,144,193,200,176,190 

309 DATA 160,0,177,20,170,41,127,32,210 

310 DATA 255,200,177,20,168,41,127,240 

311 DATA 3,32,210,255,138,16,17,152,48 

312 DATA 10,169,64,32,210,255,104,104 

313 DATA 76,111,194,169,37,208,78,152 

314 DATA 16,4,169,36,208,71,96,32,210 

315 DATA 255,169,32,32,210,255,169,61 

316 DATA 208,58,160,0,177,34,170,200 

317 DATA 177,34,168,138,32,149,179,76 

318 DATA 208,194,32,166,187,32,221,189 

319 DATA 76,30,171,32,245,194,160,2,177 
DATA 34,133,37,136,177,34,133,36 
DATA 136,177,34,133,38,240,10,177 
DATA 36,32,210,255,200, 196, 3B, 208 
DATA 246,169,34,76,210,255,32,115 

324 DATA 0,32,235,183,142,235,7,165,20 

325 DATA 166,21,141,233,7,142,234,7,120 

326 DATA 169,26,162,195,141,20,3,142 

327 DATA 21,3,88,96,173,138,2,141,10 

328 DATA 192,169,64,141,138,2,32,135 

329 DATA 234,173,141,2,201,2,240,9,169 

330 DATA 0,234,141,138,2,76,49,234,165 

331 DATA 203,201,3,240,7,201,4,240,38 

332 DATA 76,47,195,32,122,195,173,234 

333 DATA 7,174,233,7,32,205,189,169 

334 S=0:FOR 1= 49724 TO 50001 :READ D 

335 POKE I,D:S=S+D:NEXT 

336 IF S032656 THEN PRINT" FEHLER CSPACE 1 IN 
CSPACE 3BL. CSPACE 33" : STOP 

400 REM ***** BLOCK 4 ***** 

401 DATA 29,32,210,255,173,233,7,24,109 

402 DATA 235,7,141,233,7,144,3,238,234 

403 DATA 7,76,47,195,32,122,195,120,169 

404 DATA 49,162,234,141,20,3,142,21,3 

405 DATA 88,76,47,195,32,135,234,165 

406 DATA 203,201,64,208,247,96,169,2 

407 DATA 56,237,7,192,144,3,32,115,0 

408 DATA 76,174,167,32,115,0,240,125 

409 DATA 201,34,240,17,162,0,142,3,192 

410 DATA 157,0,207,32,115,0,240,35,232 

411 DATA 76,160,195,160,1,140,3,192,162 

412 DATA 255,177,122,201,34,240,8,200 

413 DATA 232,157,0,207,76,179,195,32 

414 DATA 115,0,201,34,208,249,76,163 

415 DATA 195,232,169,0,157,0,207,160 



416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 

500 

501 



DATA 0,177,43,141,0,192,200,177,43 
DATA 141,1,192,165,43,133,95,165 
DATA 44,133,96,76,96,196,173,3,192 
DATA 141,2,192,160,0,177,95,141,0 
DATA 192,200,177,95,141,1,192,173 
DATA 0,192,133,95,173,1,192,133,96 
DATA 32,208,248,160,0,177,95,208 
DATA 6,200,177,95,208,1,96,160,3 
DATA 162,0,200, 177,95,240,203,201 
DATA 34,208,8,169,1,77,2,192,141 
DATA 2,192,173,2,192,208,232,177 
DATA 95,221,0,207,208,225,232,189 
DATA 0,207,240,3,76,25,196,160,0 
DATA 132,15,200,200,177,95,133,20 
DATA 133,99,200,177,95,133,21,133 
DATA 98,169,13,32,210,255,32,19,166 
DATA 32,164,193,76,233,195,173,3 
DATA 192,141,2,192,76,6,196,234 
S=0:FOR 1= 50002 TO 50281 : READ D 
POKE I,D:S=S+D:NEXT 

IF SO34230 THEN PR I NT "FEHLER CSPACE DIN 
CSPACE 3BL. CSPACE 34": STOP 



04 



506 
507 
508 



REM ***** BLOCK 5 
DATA 76,8,175,32,115,0,240,248,201 
DATA 171,208,19,160,2,177,43,141 
DATA 0,192,200,177,43,141,1,192,32 
DATA 115,0,76,159,196,32,107,169 
166,20,142,0,192,166,21,142 
1 , 192,201 , 171 ,208,208,32, 1 15 
0,240,16,32,107,169,165,20,141 
2,192,165,21,141,3,192,76,183 



DATA 
DATA 
DATA 
DATA 



<186> 
<254> 
<232> 
<079> 
<112> 
<143> 
< 088 > 
<096> 
<220> 
<031> 
<112> 
<081> 
<081> 
<025> 
<058> 
<043> 
<047> 
<242> 
<071> 
<10B> 
<146> 
<000> 
<049> 
<046> 
<054> 
<0B9> 
<136> 
<000> 
<000> 
<008> 
<093> 
<106> 
<031> 
<072> 
<229> 
<227> 
<220> 

<035> 
<099> 
<222> 
<174> 
<241> 
<111> 
<103> 
<0B8> 
<077> 
<0B1> 
<164> 
<165> 
<231> 
<126> 
<100> 
<087> 
<090> 

<180> 
<096> 
<21B> 
<133> 
<149> 
<200> 
<105> 
<100> 
<134> 
<105> 
<105> 
<155> 
<093> 
<139> 
<159> 
<008> 
<119> 
<069> 
<062> 
<064> 

<126> 
<200> 
<014> 
<176> 
<007> 
<192> 
<170> 
<219> 

<061> 
<027> 
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509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 



521 



523 
524 
525 
526 
527 
528 
529 
530 
531 



33 



JOJ 



DATA 196,169,254,141,2,192,141,3 
DATA 192,173, 3, 192,56, 237, l f 192, 144 
DATA 170,208,11,173,2,192,56,237 
DATA 0,192,144,159,240,157,173,0 
DATA 192,133,20,173,1,192,133,21 
DATA 32, 19, 166, 144, 142, 169,233, 141 
DATA 2,3,169,196,141,3,3,76,10,197 
DATA 173,3, 192,56,237, 1 , 192, 144, 1 1 
DATA 208,22,173,2,192,56,237,0,192 
DATA 176, 13, 169, 131 , 162, 164, 141 ,2 
DATA 3,142,3,3,76,134,227,173,0,192 
DATA 133,20, 173, 1 , 192, 133,21 ,32, 19 
DATA 166,160,0,177,95,133,247,200 
DATA 177,95,133,248,177,247,208,8 
DATA 169,255,141,1,192,76,59,197 
DATA 160,2,177,247,141,0,192,200 
DATA 177,247,141,1,192,32,135,234 
DATA 165,203,201,3,240,185,160,2 
DATA 177,95,133,99,200,177,95,133 
DATA 98,162,144,56,32,73,188,32,223 
DATA 189,32,135,180,32,166,182,170 
DATA 160,0,232,202,240,10,177,34 
DATA 153,0,2,200,201 , 13,208,243, 169 
DATA 0,153,0,2,162,255,160,1,76,134 
DATA 164 

B=0:FOR 1= 50282 TO 50554 : READ D 
POKE I,D:S=S+D:NEXT 

IF SO33081 THEN PRINT "FEHLERCBPACE1 IN 
[SPACE DBL. [SPACE 35": STOP 



600 REM ***** BLOCK 6 

601 DATA 32,115,0,240,64,32,107,169,165 

602 DATA 20,166,21,133,61,134,62,32,253 

603 DATA 174,32,107,169,165,20,166,21 

604 DATA 133,63,134,64,160,0,169,44,209 

605 DATA 122,208,17,32,253,174,32,107 

606 DATA 169,165,20,166,21,133,65,134 

607 DATA 66,76,207,197,160,2,177,43,133 

608 DATA 65,200,177,43,133,66,76,220 

609 DATA 197,169,10,133,61,133,63,169 
DATA 0,133,62,133,64,76,178,197,165 
DATA 61,197,65,165,62,229,66,176 

DATA 3,76,113,199,32,117,199,160 
DATA 1,177,67,240,56,169,255,133 
DATA 20, 133,21 ,32,50, 199,32, 142, 166 
DATA 76,41,198,160,0,177,67,170,200 
DATA 177,67,240,31,72,200,165,61 
DATA 145,67,200, 165,62, 145,67, 134 
DATA 67,104,133,68,165,61,24,101 
DATA 63, 133,61 , 165,62, 101 ,64, 133 
DATA 62,144,215,32,96,166,76,134 
DATA 227,230,122,208,2,230,123,160 
DATA 0,177, 122,208,19, 160,2,177, 122 
DATA 240, 191 , 165, 122,24, 105,5, 133 
DATA 122,144,235,230,123,176,231 
DATA 201,34,208,11,32,115,0,201,0 
DATA 240,226,201,34,208,245,201,137 
DATA 240,23,201 , 141 ,240, 19,201 , 167 
DATA 240, 15 , 201 , 138, 240 , 1 1 ,201 , 203 
DATA 208,190,32,115,0,201,164,208 
DATA 191,32,115,0,176,186,132,20 
DATA 132,21 ,233,47, 144,51 , 170, 165 
DATA 21,133,34,201,25,176,237,165 
DATA 20,10,38,34,10,38 
S=0:FOR 1= 50555 TO 50824 : READ D 
POKE I,D:S=S+D:NEXT 

IF S032153 THEN PRINT'FEHLERCSPACEHIN 
[SPACEUBL. [SPACE 36": STOP 

700 REM ***** BLOCK 7 ***** 

701 DATA 34,101,20,133,20,165,34,101 

702 DATA 21,133,21,6,20,38,21,138,101 
7QZ DATA 20,133,20,144,2,230,21,200,177 

704 DATA 122,201,32,240,249,201,58,144 

705 DATA 201,165,20,197,65,165,21,229 

706 DATA 66,144,62,132,206,32,50,199 

707 DATA 56,162,144,32,73,188,32,221 



610 
611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 



<189> 
<085> 
<187> 
<187> 
<177> 
<037> 
<036> 
<034> 
<036> 
<242> 
<079> 
<023> 
<249> 
<019> 
<223> 
<190> 
<252> 
<1B7> 
<020> 
<111> 
<056> 
<186> 
<079> 
<082> 
<053> 
<176> 
<165> 

<231> 
<046> 
<163> 
<158> 
<075> 
<173> 
<069> 
<079> 
<189> 
<032> 
<090> 
<193> 
<058> 

<045> 
<047> 
<173> 
<189> 
<037> 
<094> 
<037> 
<034> 
<052> 
<121> 
<184> 
<082> 
<036> 
<059> 
<184> 
<129> 
<120> 
< 086 > 
<043> 
<095> 
<098> 
<059> 
<023> 
<009> 

<075> 
<147> 
<095> 
<148> 
<243> 
<212> 
<179> 
<131> 
<131> 



708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 



800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
B14 
815 
816 
817 
818 
819 
820 
821 
822 



DATA 189,160,255,200,185,1,1,208 
DATA 250,165,122,133,95,165,123,133 
DATA 96,56,152,229,206,48,28,240 
DATA 54,133,206,165,45,133,90,24 
DATA 101,206,133,88,165,46,133,91 
DATA 105,0,133,89,32,184,163,240 
DATA 30, 144,48,73,255, 168,200, 162 
DATA 0,165,95,197,45,165,96,229,46 
DATA 176,12,177,95,129,95,230,95 
DATA 208,238,230,96,208,234, 160,0 
DATA 185,1,1,240,5,145,122,200,208 
DATA 246,32,117,199,32,115,0,144 
DATA 251,160,0,201,44,208,2,169,137 
DATA 170,76,45,198,165,61,166,62 
DATA 133,99,134,98,165,67,166,68 
DATA 133,34,134,35,160,2,177,34,197 
DATA 20,200,177,34,229,21,176,37 
DATA 160,0,177,34,170,200,177,34 
134,34,133,35,177,34,240,21 
165,99,101,63,133,99,165,98 
101 ,64, 133,98, 176,4,201 ,250 

144,209,76,72,178,96,32,51,165 
DATA 24, 165,34, 105,2, 133,45, 165,35 
DATA 105,0,133,46,165,65,166,66,133 
DATA 20,134,21,32,19,166,165,95,133 
DATA 67,134,68,96 

S=0:FOR 1= 50825 TO 51094 : READ D 
POKE I,D:S=S+D:NEXT 

IF SO31170 THEN PRINT"FEHLER[SPACE3IN 
[SPACE 3BL . [SPACE 37 " : STOP 

REM 

DATA 

DATA 

DATA 

DATA 

DATA 



DATA 
DATA 
DATA 
DATA 



824 



827 
828 
829 
830 
831 
832 
833 

840 



BLOCK 8 
169, 179, 141 ,0,3, 169, 199, 141 
1,3,169,37,141,6,3,169,200,141 
7,3,76,128,192,138,16,3,76,116 
164,234,138,10,170,189,38,163 
133,34,189,39,163,133,35,32 
DATA 204,255,169,0,133,19,32,215 
DATA 170,32,69,171,160,0,177,34,72 
DATA 41,127,32,71,171,200,104,16 
DATA 244,32,122,166,169,105,160,163 
DATA 32,30,171,164,58,200,240,3,32 
DATA 194,189,169,118,160,163,32,30 
DATA 171,165,157,240,8,169,128,32 
DATA 144,255,76,128,164,165,57,166 
DATA 58,133,20,133,99,134,21,134 
DATA 98,32,19,166,169,0,133,15,32 
DATA 164,193,169,13,32,210,255,76 
DATA 255, 199, 141 , 15, 192, 140, 14, 192 
DATA 165,145,141,9,192,32,135,234 
DATA 165,203,201,3,240,14,172,14 
DATA 192,173,9,192,133,145,173,15 
DATA 192,76,26,167,32,135,234,165 
DATA 203,201,4,240,10,201,60,208 
DATA 243, 169,0, 133, 198,240,223, 169 
DATA 13,32,210,255,76,128,164,32 
DATA 115,0,201,147,240,3,76,184,192 
DATA 164,46,165,45,56,233,2,176,1 
DATA 136,140,1,192,141,0,192,169 
DATA 0,133,10,32,115,0,32,212,225 
DATA 165,10,174,0,192,172,1,192,76 
DATA 117,225,32,210,255,76,208,248 
S=0:FOR 1= 51100 TO 51350 : READ D 
POKE I,D:S=S+DsNEXT 

IF S029856 THEN PRINT"FEHLER[SPACE3IN 
[SPACE 3BL. 8": STOP 



850 SYS 51 100: REM TOOL-KIT AKTIVIEREN 



<126> 
<020> 
<146> 
<131> 
<185> 
<130> 
<187> 
<006> 
<160> 
<187> 
<217> 
<138> 
<022> 
<162> 
<177> 
<038> 
<143> 
<139> 
<140> 
<175> 
<145> 
<062> 
<244> 
<046> 
<043> 
<200> 
<123> 
<109> 

<174> 

<217> 
<238> 
<105> 
<126> 
<078> 
<233> 
<224> 
<072> 
<213> 
<123> 
<057> 
<088> 
<038> 
<100> 
<234> 
<036> 
<039> 
<088> 
<036> 
<222> 
<044> 
<049> 
<214> 
<096> 
<242> 
<132> 
<046> 
<243> 
<009> 
<092> 
<099> 
<203> 
<207> 

<035> 
<133> 
<138> 
<248> 



Bild 1. Der Basic-Lader erzeugt das Toolkit. Speichern Sie 
dieses Programm sicherheitshalber vor dem RUN ab. Nach 
dem Start benutzen Sie das Programm in Bild 2, urn den 
Maschinencode zu speichern. 



5 REMTOOL--KIT 

10 P0KE183r8;REM LAENGE DES FILENAMENS 

20 P0KE1 85,0: REM SEKUNDAERADRESSE 

30 POKE 186,1: REM GERAETEADRESSE <8 FUER FLOPPY) 

40 P0KE187,PEEK(43)+5!P0KE188,PEEK(44>:REM ZEIGER AUF FILENAMEN 

50 P0KE193,16;P0KE194,192:REM HI- UNO LOW BYTE STARTADRESSE 

60 P0KE174,151:POKE175,20O:REM HI- UND LOW BYTE ENDADRESSE +1 

70 SYS62954:REM ZUR SAVE - ROUTINE 

80 REM LADEN HIT L0AD"T0GL-KIT" , 1 , 1 (,3,1 FUER FLOPPY) ' 

90 REM NACH DEM LADEN NEW EINGEBEN 

95 REM DANN MIT SYS 51 100 TOOL-KIT AKTIVIEREN 



Biid 2. Nach erfolgreichem Abtippen und Start des Basic- 
Laders konnen Sie das Toolkit mit diesem Programm ab- 
speichern. 
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Befehlserweiterung 



C64 




igene 





auf 



dem 





Bereits implementiert sind Befehle, 
wie Text und hochauf losende Graf ik zu 



kombinieren 




• It 



Hintergrundfarbe 



andern. Sie konnen bis zu 51 neue Be- 
fehle definieren. 



Das Programm ermoglicht es, eigene Basic-Befehle zu defi- 
nieren. Als Beispiel sind sechs Befehle definiert worden, die 
den hochauflosenden Grafikmodus betreffen. Alle Anweisun- 
gen, die benotigt werden, sind in REM-Zeilen gespeichert. 

(Fortsch / rg) 



50000 
50010 
50020 
50040 
50050 
50060 
50070 
50080 
50090 
50100 
50110 
50120 
50130 
50140 
50150 
50200 

50210 

50220 

50230 

50240 

50250 

50260 

50270 

50280 

50290 

50300 

50310 

50320 

50330 

50340 

50350 

50360 

50370 

50380 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



■***■*****-■*****■***■*-*♦*■*-***** 



* 

* 

* 

* 
* 

* 



BEFEHLSERWE I TERUNG 



1984 BY 

G. FOERTSCH 
DUEPPEL-STR- 
5100 AACHEN 



84 



TEL- : 0241/507569 



* 
* 
* 
* 

* 
* 

* 



***»*******■**#****■*#****** 



REM 
REM 

REM ZUNAECHST FOLGT EINE ERLAEU- 
TERUNG DER AB ZEILE 60860 
REM ALS BEISPIELE AUFGEFUEHRTEN 
BEFEHLSERWE I TERUNGEN . 
REM 

BEFEHL (1): GRAFIC 
REM DER HOCHAUFLOESENDE GRAFIK- 
MODUS WIRD EINGESCHALTET. DER 
REM GRAFIKSPEICHER BEGINNT BE I 
$2000 (DEZ8192). 
REM 

BEFEHL (2): GOFF 

REM DER GRAFIKMODUS WIRD AUSGE- 
SCHALTET. 
REM 

BEFEHL (3): GCLEAR 
REM DER GRAFIKSPEICHER WIRD GE- 
LOESCHT. (FALLS SIE DIESEN 
REM GANZEN REM-RAMSCH ABGETIPPT 
HABEN, 1ST DIESER BEFEHL MIT 
REM AEUSSERSTER VORSICHT ZU GE- 
BRAUCHEN, DA DAS PROGRAMM WE- 
REM GEN SEINER LAENGE ZERSTOERT 
WIRD! ! ! ) 

REM 

BEFEHL (4): SCOLOR (PF, HF) 

REM IM VIDEORAM WIRD DIE FARBE GE- 

SETZT MIT: 

REM PF PUNKTF ARBE (0-15) 

HF . . . H I NTERGRUNDFARBE (0-15) 

REM 

BEFEHL (5): GTEXT 

REM DIESER BEFEHL GESTATTET ES IH- 
NEN, TEXT UND GRAF IK ZU 
REM MISCHEN. GTEXT SCHALTET DIESEN 
MODUS EIN. MIT GTEXT (XI, X2) 
REM KOENNEN SIE ZWEI PARAMETER 
UEBERGEBEN, DIE DIE LAGE DES 



<230> 
<000> 
<084> 
<072> 
<040> 
<163> 
<060> 
<025> 
<031> 
<192> 
<100> 
<241> 
<120> 
<114> 
<056> 

<0B8> 

<187> 

<141> 

<025> 

<141> 

<034> 

< 028 > 

<195> 



si^z^y 



<189> 



< 



<185> 



<187> 



<185> 



<243> 



<243> 



<020> 



<126> 



<135> 



50400 

50410 

20) 



50390 REM GRAFIKFENSTERS AUF DEM BILD- 

SCHIRM FESTLEGEN. FUER XI 

REM BZW. X2 DUERFEN NUR WERTE 

ZWISCHEN UND 25 GEWAEHLT 

REM WERDEN. BE I SPIEL 5 GTEXT (3, 

IN DEN ERSTEN 3 BILDSCHIRM- 
<003> 
50420 REM ZEILEN UND AB ZEILE 20 KANN 

TEXT UNTERGEBRACHT WERDEN, 
50430 REM DAZWISCHEN LIEGT DAS GRAF I K- 

FENSTER. (SOLLTEN SICH DER 
50440 REM TEXT UND DIE KANTEN DES FEN- 

STERS UEBERLAPPEN, MUESSTEN 
50450 REM SIE DAS DATUM IN ZEILE 61441 



<141> 



<157> 



<127> 



<255> 



<097> 



50460 

50470 

50480 
50490 
DI 

50500 
50510 



50530 



50540 



50550 



50560 



50570 



ETWAS VARIIEREN. > 

REM 

BEFEHL (6) : TEXTOFF 

REM OBEN BESCHRIEBENER MODUS WIRD 

AUSGESCHALTET. 

REM 

REM WENN SIE LUST VERSPUEREN, 

E- SE BEFEHLE AUSZUPROBIEREN, 

<022> 
REM STARTEN SIE DAS PROGRAMM MIT 
RUN 60800 UND INITI ALISIEREN 
REM SIE DIE BEFEHLSERWEITERUNG MIT 
SYS49260. (AUSGESCHALTET WIRD 
REM DIESELBE DURCH SYS49274. ) 
REM UND WENN IHNEN DIE BEFEHLSWOR- 
TE NICHT GEF ALLEN, KOENNEN 
REM SIE DIESE AB ZEILE 60860 OHNE 
BEDENKEN AENDERN. (ACHTEN SIE 
REM DARAUF, DASS SIE DIE ROUTINEN 
DURCH GOFF BZW. TEXTOFF AUS- 
REM SCHALTEN, INSBESONDERE DANN, 

FALLS SIE BEABSICHTIGEN, 
<025> 

REM DATEN ALS FILE ZU SPEICHERN. ) 
**********#♦****#**♦********# 

REM ERLAEUTERUNGEN 



<042> 



<247> 

<008> 
<132> 



<180> 

<230> 
<191> 

<190> 

<088> 

<234> 



DIE 



<179> 



NUN 



50600 

50610 

50620 

50630 
50640 

50650 

50660 

50670 

50680 

50690 

50700 

50710 

50720 
50730 
50740 

50750 

50760 

50770 

50780 

50790 

50792 

50794 

50796 



REM ZU JEDEM BEFEHL, DEN SIE 
DEFINIEREN WOLLEN, GEHOEREN 
REM DREI DINGE: 
(1) DAS BEFEHLSWORT, 

REM (2) DIE ENTSPRECHENDE MASCHI- 
NENROUTINE, 

REM (3) DIE ADRESSE DIESER ROU- 
TINE. 
REM 

REM ZU < 1 ) : 

DIE BUCHSTABEN EINES BEFEHLS- 
REM WORTES WERDEN ALS ASCI I -CODES 
GESPEICHERT, WOBEI ZU BEACH- 
REM TEN 1ST, DASS IM, LETZTEN BUCH- 
STABEN DAS HOECHSTE BIT GE- 
REM SETZT SEIN MUSS. DIE TABELLE 
DER BEFEHLSWORTE WIRD MIT EI- 
REM NER NULL ABGESCHLOSSEN- AB 
ZEILE 60800 FINDEN SIE EINE 
REM BASIC-ROUTINE, DIE IHNEN DIE- 
SE ARBEIT ABNIMMT. ERGAENZEN 
REM SIE DIE TABELLE DER BEFEHLS- 
WORTE AB ZEILE 60860 MIT IH- 
REM REN BEFEHLEN UND ERHOEHEN SIE 
DIE VARIABLE X JE NACH ANZAHL 
REM DER BEFEHLE. 
REM 

REM ZU (2): 

DER SPE I CHERBERE I CH VON $C000 
REM BIS EINSCHLIESSLICH ZU DER 
ADRESSE, IN DER SICH DIE AB- 
REM SCHLUSSNULL DER BEFEHLSWORT- 
TABELLE BEFINDET, 1ST FUER 
REM SIE TABU UND EBENSO DER JEN I GE 
VON SCD00 BIS *CE41, FALLS 
REM SIE DIE BEFEHLE GRAFIC BIS 
TEXTOFF VERWENDEN WOLLEN. AN- 
REM SONSTEN BESTEHEN NUR DIE NOR- 
MALEN EINSCHRAENKUNGEN. SOL- 
REM LEN DIE MASCHINENPROGRAMME IN 
DATAZEILEN (AM BESTEN AB ZEI- 
REM LE 61700) GESPEICHERT WERDEN, 

DANN MUESSEN SIE NOCH EINEN 
REM ENTSPRECHENDEN BASIC-LADER AB 
ZEILE 60900 SCHREIBEN. 



<132> 

<164> 

<140> 

<056> 

<170> 
<026> 

<218> 

<191> 

<241> 

<140> 

<011> 

<159> 

<071> 

<118> 
<073> 
<127> 

<255> 

<163> 

<210> 



/ 



111> 



<098> 



<116> 



<053> 



<084> 



<138 



? 
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Bef eh I serwei ter u ng 



50800 REM 

50810 REM ZU (3): 

DIE ADRESSEN DER MASCHINEN- 
50820 REM ROUTINEN WERDEN IN LO- UND 

HI -BYTE AUFGESPALTEN UND IN 
50830 REM TABELLE DER BEFEHLSADRESSEN 

AB ZEILE 60000 EINGETRAGEN. 
50840 REM DABEI 1ST WICHTIG, 

DASS VON DER E I GENTL I CHEN 

SE EINE 
50850 REM EINS ABGEZOGEN WIRD! ! ! DAS 

EINTRAGEN DER BEFEHLSWORTE 
50860 REM UND DER BEFEHLSADRESSEN IN DIE 

ENTSPRECHENDEN TABELLEN ER- 
50870 REM FOLGT PARALLEL!!! DIE ADRESSE 

VON GCLEAR ALS DRITTER BEFEHL 
50880 REM Z.B. 1ST IN DIE 5. UND 6- 

STELLE DER TABELLE EINGETRA- 
50890 REM GEN WORDEN, DAVOR BEFINDEN 

SICH DIE ADRESSEN VON GRAF I C 
50900 REM UND GOFF. RECHENREGEL 

s <NR. DES BEFEHLS)*2 

IBT 

50910 REM DIE STELLE AN, IN DIE DAS LO- 
BYTE EINGETRAGEN WIRD, IN DIE 
REM DARAUFFOLGENDE STELLE WIRD DAS 
HI -BYTE EINGETRAGEN. (UEBER- 
REM SCHREIBEN DER SICH DORT BEFIN- 
DENDEN DATEN ! ) 
REM 

REM WENN SIE ALLE PUNKTE 6ENAU BE- 
ACHTET HABEN, WIRD DIE BE- 
REM FEHLSERWEITERUNG, WIE OBEN 
SCHON ERWAEHNT WURDE, MIT 
REM SYS (49260) INITIALISIERT. 
(AUSSCHALTEN MIT SYS (49274).) 
REM ***************************** 
REM DIESE NEU DEFINIERTEN BEFEHLE 
SIND WIE BASICBEFEHLE ZU 
REM HANDHABEN. SIE KOENNEN INSGE- 
SAMT 51 BEFEHLE DEFINIEREN, 

51000 REM WELCHE DANN DIE CODES 204 BIS 
254 HABEN, D-H.,DASS SIE DIE- 

51010 REM SE BEFEHLE AUCH POKEN KOENNEN. 
WEITERHIN KOENNEN SIE DIE BE- 

51020 REM FEHLE BELIEBIG ABKUERZEN, 

WO- BE I ALLERDINGS ZWEIDEUTI 



<197> 

<001> 

<071> 

< 078 > 

ADRES 
<253> 

<043> 



<1 



_><_» 



0920 



50930 
50940 

50950 

50960 

50970 
50980 

50990 



<085> 

<045> 

<152> 

- 1 G 
<146> 

<186> 

<028> 

<005> 
<071> 

<130> 

<202> 

<193> 
<050> 

<243> 

<072> 

<095> 

<025> 

GKEI- 



<1 



Jv-J 



51030 REM TEN VERM I EDEN WERDEN SOLLTEN 

BSP . : SCOLOR , CODE 207 , MOEG- 
51040 REM LICHE ABKUERZUNG: SC<SHIFTO> 

RETURN , 
<170> 
LICHE "ABKUERZUNG: 



<19B> 



CODE 142, MOEG- 



RET<SHIFTU>. 



*** BEFEHLSADRESSEN 
*** *C000 - $C065 



51050 REM 
60000 REM 

60005 REM 

60006 REM 

60007 REM 

60010 DATA 255,204,008,205,024,205,044,205, 
205,016,206: REM ADRESSEN DER 

60011 REM BEFEHLE GRAFIC BIS TEXTOFF 
60020 DATA 182,163,182,163,182,163,182,163, 

163, 182, 163, 182, 163, 182, 163 
60030 DATA 182,163,182,163,182,163,182,163, 

163,182,163,182,163,182,163 
60040 DATA 1B2, 163, 182, 163, 182, 163, 182, 163, 

163,182,163,182,163,182,163 

60050 DATA 182,163,182,163,182,163,182,163, 
163, 182, 163, 182, 163, 182, 163 

60060 DATA 182,163,182,163,182,163,182,163, 
163,182,163,182,163,182,163 

60070 DATA 182,163,182,163,182,163,182 
163 

60100 REM 

REM *** ZEIGER 

REM *** *C066 - *C06B 

REM 



,163, 



60105 
60106 
60107 
60110 
60200 
60205 
60206 
60207 
60210 
20 



52, 192, 128, 192, 187, 192 



DATA 

REM 

REM *** 

REM *** 

REM 

DATA 120,162,005,189,102,192,157,004, 

,016,247,088,096 



INITIALISIEREN 
*C06C - $C079 



60300 REM 
60305 REM 



*♦* AUSSCHALTEN 



<195> 

<217> 

<170> 

<131> 

<224> 

171, 

<208> 

<121> 

182, 

<029> 

182, 

<039> 

182, 

<049> 

182, 

<059> 

182, 

<069> 

182, 

<168> 

<061> 

<134> 

<000> 

<068> 

<191> 

<162> 

<062> 

<106> 

< 1 69 :> 

003, 

< 057 > 

<006> 

<196> 



60306 REM *** $C07A - *C07F 

60307 REM 

60310 DATA 120,032,083,228,088,096 
REM 

REM *** ROUTINE (1) 
REM *** *C080 - $C0BA 
REM 



60400 
60405 
60406 
60407 
60410 



<218> 
<013> 
<126> 
<106> 
<149> 
<052> 
<113> 



DATA 016,050,201,255,240,046,036,015,048, 
042,201,204,048,042,056,233,203 <055> 

60420 DATA 170,132,073,160,255,234,202,240,010, 
234,200,185,205,193,016,250,048 <073> 

60430 DATA 244,234,200,185,205,193,048,006,032, 



60440 
60500 
60505 
60506 
60507 
60510 



071,171,208,245,234,076,239,166 



<114> 
<148> 
<207> 
<251> 
<1$6> 
<214> 



DATA 234 , 076 , 243 , 1 66 , 234 , 076 , 036 , 1 67 
REM 

REM *** ROUTINE (2) 
REM **-* $C0BB - $C0FB 
REM 

DATA 032,115,000,032,196,192,076,174,167, 

240,012,233,128,144,012,201,035 <164> 

60520 DATA 176,012,076,247,167,234,076,043,168, 

234,076,165,169,234,201,075,048 <226> 

60530 DATA 006,208,008,076,018,168,234,076,008, 

175,234,201,127,240,248,056,233 <214> 

60540 DATA 076,010,168,185,001,192,072,185,000, 

192,072,076,115,000 <127> 

60600 REM <051> 

60605 REM *** ROUTINE (3) -<096> 

60606 REM *** *C0FC - $C1D1 <017> 

60607 REM <058> 
60610 DATA 166,122,160,004,132,015,189,000,002, 

016,007,201,255,240,065,232,208 <253> 

60620 DATA 244,201,032,240,058,133,008,201,034, 

240,089,036,015,112,048,201,063 <011> 

60630 DATA 208,004,169,153,208,040,201,048,144, 

004,201,060,144,032,076,150,193 <029> 

60640 DATA 132,113,160,000,132,011,136,134,122, 

202,200,232,189,000,002,056,249 <011> 

60650 DATA 158,160,240,245,201,128,208,048,005, 

011,164,113,232,200,153,251,001 <037> 

60660 DATA 185,251,001,240,054,056,233,058,240, 

004,201,073,208,002,133,015,056 <052> 

60670 DATA 233,085,208,156,133,008,189,000,002, 

240,223,197,008,240,219,200,153 <078> 

60680 DATA 251,001,232,208,240,166,122,230,011, 

200, 185, 157, 160,016,250, 185, 158 <079> 

60690 DATA 160,208,180,189,000,002,016,190,153, 

253,001 , 198, 123, 169,255, 133, 122 < 101 > 

60700 DATA 096,132,113,160,000,132,011,136,134, 

1 22 , 202 , 200 , 232 , 1 89 , 000 , 002 , 056 < 072 > 

60710 DATA 249,205,193,240,245,201,128,208,008, 

005,011,024,105,076,076,074,193 <127> 

60720 DATA 166,122,230,011,200,185,204,193,016, 

250, 185,205, 193,208,220, 164, 113 
60730 DATA 166,122,076,047,193 
REM 

REM *** BEFEHLE SPEICHERN 
REM 

GOSUB 60860 
Z=49613:L=0 

FOR K=l TO X:L=LEN(A$(K) ) : FOR 
.-POKE Z+I,ASC(MID*(A$(K) ,1 + 1,1) ) 
60840 POKE Z+L-1,ASC (RIGHT* (A*(K) ,1) ) OR 128 

:Z=Z+L: NEXT: POKE Z,0 <055> 

60850 PRINT" CCLEAR 3" s GOSUB 60900 

^RINT-DATENCSPACEIGESPEICHERT! " 
: PR I NT " CD0WN2 DSYS ( 49260 ) [HOME , DOWN 1 " : END 

< 024 > 
REM *** TABELLE DER BEFEHLSWORTE 
REM 

X=6:DIM A*(X):IF X>51 THEN END 
A* (1)=" GRAFIC": REM CODE 204 

REM CODE 
REM CODE 
REM USW. 



60800 
60805 
60806 
60810 
60820 
60830 



1=0 TO 
NEXT 



<122> 
<097> 
<252> 
<011> 

<002> 
<008> 

<252> 

L-2 

<028: 



■■-. 



60860 
60861 
60862 
60863 
60864 
60865 
60866 
60867 
60868 



<020> 
<057> 
<020> 
<175> 



A*(2>= ,, G0FF": 
A* (3)=" GCLEAR" 
A*<4)= ,, SC0L0R" 
A*(5)="GTEXT" 



205 
206 



A*<6)="TEXT0FF" 
60890 RETURN 

60900 REM *** SPEICHERUNG DER DATEN 

60901 REM 
Z=49152 
FOR 1=0 



60905 
60906 



<040> 
<183> 
<087> 
<029> 
<179> 
<085> 
<098> 
<097> 
<231> 



TO 



460: READ X:POKE Z+I,X:NEXT 
<056> 



60910 
60911 



Z=52480 
FOR 1=0 



< 234 > 



TO 



321: READ XrPOKE 
<057> 



Z+I,X:NEXT 
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Bef eh Iserweiteru ng 



C64 



60990 RETURN 

61000 REM *** GRAF I C <*CD00) 

61010 DATA 169,024,160,059,162,096,076 

<144> 
61100 REM *** GOFF <*CD09> 
61110 DATA 169,021,160,027,162,169,141 

140,017,208,142,000,205,096 
61200 REM *** GCLEAR <$CD1?) 
61210 DATA 169,000,162,032,133,253,134 

145,253,200,208,251,230,254,202 
61220 DATA 208,246,096 
61300 REM *** SCOLOR <*CD2D> 
61310 DATA 201,040,240,006,076,008,175 

178,032,155,183,224,016,176,246 
61320 DATA 138,010,010,010,010,133,251 

183,224,016,176,232,138,005,251 
61330 DATA 133,251,032,247,174,174,169 

240,233,165,251,160,039,145,209 
61340 DATA 136,016,251,232,236,170,205 

096 
61400 REM *** GTEXT <*CD6A) 
61410 DATA 173,025,208,141,025,208,048 

013,220,088,076,049,234,173 
61420 DATA 018,208,205,168,205,176,019 

160,059,141,024,208,140,017,208 
61430 DATA 173,168,205,141,018,208,076 

169,021,160,027,141,024,208 

61440 DATA 140,017,208,173,167,205,141 
076 , 1 88 , 254 , 000 , 255 , 000 , 025 

61441 DATA 050: REM RASTERZEILENANFANG 
61445 REM EINSPRUNG (*CDAC) 

61450 DATA 240,004,201,040,240,047,120 

141,020,003,169,205,141,021,003 
61460 DATA 169,000,141,018,208,173,017 

127,141,017,208,169,129,141,026 
61470 DATA 208,169,096,141,178,205,169 

017,206,032,121,000,088,096,076 
61475 DATA 072,178,032,155,183 
61480 DATA 224,026,176,246,134,251,032 

224 , 026 , 1 76 , 237 , 1 34 , 252 , 032 , 247 
61490 DATA 174,166,251,228,252,176,226 

181,251,157,169,205,010,010,010 
61500 DATA 024,109,171,205,157,167,205 

238,096 



<186> 
<075> 
,015,205 



,024, 



,254, 



,076, 
,032, 
,205, 
,048, 



,007, 
,169, 
,188, 
,018, 



,169, 



,120, 



,241, 
,162, 



< 046 > 
208, 

< 065 > 
<032> 
168, 
<105> 
<195> 
<180> 
072, 

< 224 > 
241, 
<190> 
032, 
<243> 
238, 
<156> 
<211> 
173, 
<127> 
024, 
<078> 
254, 
<152> 
208, 
<147> 
<021> 
<191> 
106, 
<055> 
041, 
<110> 
141, 
<133> 
<075> 
183, 
<138> 
001, 
<134> 
016, 
<000> 



61600 REM *** TEXTOFF <*CE11) <028> 

61610 DATA 096,169,049,160,234,141,020,003,140, 

021,003,169,096,141,017,206,169 <004> 

61620 DATA 000,160,025,141,169,205,140,170,205, 

160,255,141,167,205,140,168,205 <255> 

61630 DATA 141,026,208,169,120,141,178,205,169, 

024 , 032 , 002 , 205 , 088 , 096 < 1 48 > 








auf 

Tastendruck 



Beim Programm KEYS handelt es sich urn ein Maschinen- 
programm, das den Bereich $C000 - $C26B benotigt. Es er- 
weitert das Basic um die beiden Befehle »KEY« und »DISP- 
LAY«, mit denen die Funktionstasten belegt werden konnen 
beziehungsweise diese Belegung angezeigt werden kann. 
Zusatzlich konnen die wichtigsten Basic-Befehle durch gleich- 
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zeitiges Drucken von CTRL und einer Buchstabentaste »auf 
Knopfdruck« auf den Bildschirm geschrieben werden, was die 
Programmierarbeit doch sehr vereinfachen kann. 

Bei der Initialisierung mit SYS 49152, die der Basic-Lader 
automatisch vornimmt, werden die Vektoren auf die Routine 
»Basic-Statement ausfuhren« und die Tastaturabfrage auf 
$C014 beziehungsweise $C11D verbogen. 

Die beiden neuen Befehle werden an einem vorangestellten 
»!« erkannt, anschlieBend pruft das Programm auf die Anfangs- 
buchstaben K und D ($C014 - $C02D).Folgt keiner dieser 
Buchstaben, so wird ein »SYNTAX ERROR« ausgegeben 
($C02E). Andernfalls verzweigt es nach $C031 (KEY) bezie- 
hungsweise $C0A7 (DISPLAY). 

Der »KEY«-Befehl hat das Format !KEY N, »Befehl«. Hierbei 
mu3 N zwischen eins und zwolf liegen, der Befehl darf maximal 
neun Zeichen umfassen, wobei Anfuhrungszeichen durch das 
Hochkomma zu ersetzen sind. Ein anschlieBendes RETURN 
erreicht man durch Eingabe von »£« als letztes Zeichen. 

Die Funktionstasten F1 bis F8 werden wie ublich, die Tasfen 
F9 bis F12 durch gleichzeitiges Drucken von »C=« und einer 
F-Taste erreicht. 

Beispielsweise bewirkt !KEY 9, »RUN£«, da(3 nach gleich- 
zeitigem Drucken von »C=« und »F1« ein Basic-Programm ge- 
startet wird. 

Der »DISPLAY«-Befehl hat das Format ! DISPLAY und laBt 
sich ebenfalls auf eine Funktionstaste legen. Er bewirkt ein Lo- 
schen des Bildschirms und die Anzeige der Belegung der 12 
Funktionstasten. ' 

Die neue Tastaturabfrageroutine pruft zunachst, ob die 
Control-Taste gedruckt ist. 1st dies der Fall und ist die gleichzei- 
tig gedruckte Taste belegt, so wird aus einer Tabelle 
($C1A8-$C1DE) das Token des Befehls minus $7F geladen 
und mit dessen Hilfe der ASCII-Code der Buchstaben des Be- 
fehls aus der Tabelle der Basic- Bef eh Isworte geholt. Die ein- 
zelnen Buchstaben werden in den Tastaturpuffer geschrieben 
und ausgegeben. 

Ist die Control-Taste nicht gedruckt, so wird gepruft, ob eine 
Funktionstaste gedruckt ist. Wenn ja, wird mit Hilfe des Tasten- 
Godes die Adresse der Belegung berechnet und die einzelnen 
Zeichen in den Tastaturpuffer geschrieben und ausgegeben. 

(Klaus Russell/rg) 



Gliederung des Programms: 


$C000-$C013 


Initialisierung 


$C014-$C020 


PrCifen auf »!« 


$C021 -$C02D 


Priifen auf »K« Oder »D« 


$C02E 


Ausgabe »SYNTAX ERROR« 


$C031 - $C0A6 


»KEY«-Befehl 


$C0A7-$C11C 


»DISPLAY«-Befehl 


$C11d-$C1AA 


Tastaturabfrage 


$C1AB-$C1DE 


Tokens - $7F 


$C1DF-$C1EA 


[CLR/HOME] »!DISPLAY« 2* Carriage Return 


$C1EB-$C1EF 


»!KEY« 


$C1F0-$C1FB 


Hilfswerte zur Berechnung der Adressen der 




F-Tasten-Belegung 


$C200-$C26C 


Belegung F-Tasten 


| 

Benutzte Routinen: 


$A7E7 


Basic-Statement ausfuhren 


$AB1E 


String ausgeben 


$AEFD 


Pruft auf Komma 


$AF08 


»SYNTAX ERROR« ausgeben 


$B79E 


Holt Byte-Wert nach X 


$EB3C 


$EB42, alte Tastaturabfrage 


$EB48 


Pruft auf SHIFT, CTRL, C = 


$FFD2 


Ausgabe eines Zeicbens 


$0073 


Holt nachstes Zeichen 




^ 
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Basic auf Tastendruck 



Belegung der Tastatur (mit Control): 



Taste 


Code(PEEK(203)) 


Befehl 


'+ 


40 


SIN 


- 


43 


COS 


£ 


48 


TAN 


F1 


4 


RUN 


F3 


5 


LIST 


F5 


6 


LOAD 


F7 


3 


SAVE 


W 


9 


WAIT 


E 


14 


END 


R 


17 


RETURN 


T 


22 


TO 


Y 


25 


SYS 


U 


30 


USR 


I 


33 


INPUT 





38 


OPEN 


p 


41 


POKE 


@ 


46 


CONT 


* 


49 


SQR 


t 


54 


... 


A 


10 


ABS 


S 


13 


STEP 


D 


18 


DATA 


F 


21 


FOR 


G 


26 


GOTO 


H 


29 

> 


THEN 


J 


34 


READ 


K 


37 


RIGHTS 


L 


42 


LEFTS 


• 
• 


45 


INT 


■ 


50 


LOG 


Z 


12 


GOSUB 


X 


23 


PEEK 


c 


20 


CLOSE 


V 


31 


VAL 


B 


28 


RESTORE 


N 


39 


NEXT 


M 


36 


MID$ 


f 


47 


TAB( 


■ 


44 


SPC( 


CRSRt 


7 


EXP 


CRSR- 


2 


CONT 



Die Belegung Ia6t sich folgenderma&en andern: Man sucht den Co- 
de der Taste, deren Belegung man andern will, aus obiger Tabelle und 
addiert 49579 dazu. Nun subtrahiert man vom Token des ge- 
wunschten Befehls 1 2 7 und POKEt diese'n Wert in die zuerst errech- 
nete Adresse. Will man zum Beispiel die F1 -Taste mit »VERIFY« bele- 
gen, so sieht das wie folgt aus: F1 hat den Code 4 (siehe Tabelle) 
Das Token fur VERIFY ist 149. 
Nun gibt man ein: POKE 49579 + 4,(149-127) 
Danach ergibt <CTRL> zusammen mit F1 die Ausgabe von 
»VERIFY« auf dem Bildschirm. Die so geanderte Belegung laBt sich 
dann mit einem Monitorprogramm abspeichern. Sollen auch die Be- 
legungen der mit ! KEY belegbaren F-Tasten gespeichert werden , so 
muB der Bereich $C000 bis $C26B geSAVEt werden. 



<207> 
<042> 
<101> 
<224> 



POKE 53280, 0:POKE 53281 ,0: PRINT" CCLEAR 3" 

1 PR I NT " *************************** 

2 PRINT"**CSPACE23 3** 

3 PR I NT " ** CSPACE5 3BAS I C-BEFEHLE CSPACE5 3** 

4 PR I NT " ** CSP ACE4 3 AUF CSPACE 3TASTENDRUCK CSP ACE4 3 

** <139> 

5 PR I NT " ** CSP ACE2 3+12 C SPACE 3FUNKT I ONST ASTEN 

CSPACE23** <134> 

6 PRINT"**CSPACE23 3** <105> 

7 PRINT"**CSPACE63K. CSPACE 3RUSSELL CSPACE7 3** 

<013> 

8 PRINT"**CSPACE63LUISENSTR.28CSPACE5 3** <204> 

9 PR I NT " ** CSPACE6 35 1 00 CSPACE 3 AACHEN CSPACE6 3** 

<210> 



<109> 
<052> 
<078> 
<254> 

<088> 



10 PRINT"**CSPACE23 3** 

1 1 PRINT"*************************** 
20 : 

30 A=49152:E=49659:PRINT:PRINT 

40 PR I NT " B I TTE CSPACE 3ETWAS CSPACE 3GEDULD 
S CSPACE 3 1 CH CSPACE 3LESE CSPACE 3DATEN ! 

60 FOR I=A TO EsREAD X: S=S+X: POKE I,X:NEXT <233> 

70 IF SO60722 THEN PRINT"DATACSPACE3ERROR" : END 

<107> 

80 FOR 1=49660 TO 49771: POKE 1,0: NEXT <183> 

90 SYS 49152 : REM INITIALISIERUNG <054> 

100 PRINT" CCLEAR3DIECSPACE3FUNKTIONSTASTEN 

CSPACE 3S IND CSPACE 3 JETZT CSPACE 33-FACH CSPACE3 3 
BELEGBAR CSPACE 3M I T : < 1 57 > 

110 PRINT" CDOWN, SPACE6 3! KEY CSPACE 3#, 

" CHR* ( 34 ) " KOMMANDO " CHR* ( 34 ) < 077 > 

120 PRINT" CDOWN3EINCSPACE3ANSCHLIESSENDESCSPACE3 
RETURN CSPACE 3 I ST CSPACE 3MIT CSPACE 3 
" CHR* ( 34 ) " £ " CHR$ ( 34 ) < 246 > 

130 PRINT" ALS CSPACE 3LETZTEM CSPACE 3ZEI CHEN CSPACE 3 
DES CSPACE 3KOMMANDOS CSPACE 3ZU CSPACE 3 
ER-REICHEN. <108> 

140 PRINT" CDOWN 3DAS CSPACE 3KOMMANDO CSPACE 3DARF 
CSPACE 3MAXIMAL CSPACE 39 tSPACE3ZEICHEN CSPACE 3 
UM- CSPACE 3FASSEN . < 1 68 > 

150 PRINT " C DOWN 3 ! DISPLAY CSPACE 3 ZEIGT CSPACE 3D IE 
CSPACE 3BELEGUNG CSPACE 3DER CSPACE 3F-TASTENAN. 

<017> 

160 PRINT" CDOWN3DIECSPACE3MEISTENCSPACE3 

B AS I C-BEFEHLE CSPACE 3S I ND CSPACE 3M I T CSP ACE6 3 
< CTRL > CSPACE 3+ CSPACE 3ANFANGSBUCHSTABE CSPACE 3 
"5 <171> 

170 PRINT"DESCSPACE3BEFEHLSCSPACE33ABRUFBAR- 

<173> 

190 s <248> 

200 DATA 169,20,141,8,3,162,192,142,9,3,232,142, 
144,2,169,29,141,143,2,96 <157> 

201 DATA 32,115,0,201,33,240,6,32,121,0,76,231, 



167,162,0,32,115,0,201,75,240 



<001 



N. 



202 DATA 7,201,68,240,121,76,8,175,32,115,0,221, 
237 , 1 93 , 208 , 245 , 232 , 224 ,2 < 1 53 > 

203 DATA 208,2*43,32, 115,0,32, 158, 183,224,0,208, 
5,162,14,108,0,3,224,13,16 <132> 

204 DATA 247,189,239,193,133,251,169,194,133, 
252,234,234,234,32,253,174,201 <031> 

205 DATA 34,240,5,162,22,108,0,3,160,255,200, 
192,9,16,29,32,115,0,201,34,240 <019> 

206 DATA 39,201,39,240,11,201,92,208,9,169,13, 
145,251 ,76, 141 , 192, 169,34, 145 <019> 

207 DATA 251,76,107,192,32,115,0,201,34,240,5, 
162,23,108,0,3,192,8,16,5,200 <232> 

208 DATA 169,0,145,251,162, 12B, 108,0,3,32,115,0, 
221 ,226, 193,208, 136,232,224 <248> 

209 DATA 6,208,243,169,223,160,193,32,30,171, 
169,1,72,169,235,160,193,32,30 <017> 

210 DATA 171,104,170,201,10,48,9,169,49,32,210, 
255,138,56,233,10,24,105,48 <213> 

211 DATA 32,210,255,169,44,32,210,255,169,34,32, 
210,255,189,239,193,24,105 <230> 

212 DATA 0,133,251,-169,0,168,105,194,133,252, 
177,251,240,20,201,34,208,2,169 <054> 

213 DATA 39,201,13,208,2,169,92,32,210,255,200, 
192,9,208,232, 169,34,32,210 <213> 

214 DATA 255,169,13,32,210,255,232,138,201,13, 
208,162,240,133,173,141,2,201 <249> 

215 DATA 4,240,79,162,3,228,203,240,8,232,224,7, 
208,247,76,72,235,228,197 <193> 

216 DATA 240,249,134,197,201,3,16,52,201,0,240, 
12,232,232,232,232,201,1,240 <231> 

217 DATA 4,232,232,232,232,216,169,0,224,3,240, 
8,24,105,9,202,224,3,208,248 <254> 

218 DATA 170, 160,0,200, 1B9,0, 194,153, 118,2,201, 
0,240,5,232,192,9,48,240,132 <249> 

219 DATA 198,76,66,235,162,2,228,203,240,7,232, 
224,51,208,247,240,175,189 <201> 

220 DATA 171,193,240,170,228,197,240,166,134, 
197,170,160,255,202,240,8,200 <235> 

221 DATA 185,158,160,16,250,48,245,200,185,158, 
160,48,6,157,119,2,232,208 <198> 

^22 DATA 244,56,233,128,76,60,235,255,255,27,21, 
11,28,20,62,0,19,55,0,14,42 <015> 

223 DATA 1,0,0,15,4,0,33,2,37,67,0,31,10,0,13, 
40,56,70,0,6,8,0,75,74,32,3 <116> 

224 DATA 64,24,73,63,39,54,27,36,65,59,61,255, 
147,33,68,73,83,80,76,65,89 <239> 

225 DATA 13,13,0,33,75,69,89,0,9,45,18,54,27,63, 
0,36,81,90,99,72 <014> 
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Auto 



C64 



Automatische 




numerierung 



Die lastige Arbeit, vor jeder Zeile die 
entsprechende Nummer einzutippen 
nimmt Ihnen diese kleine Routine ab. 



Die Maschinen-Routine — ganze 141 Bytes — wird vom 
Basic-Lader uber DATAs in den Speicherbereich ab Adresse 
$COOObeziehungsweise 49152 Dezimalgeschutztabgelegt. 
Dabei fuhrt das Basic-Programm eine Checksummenprufung 
durch, da sich der Basic-Lader nach Ablaut von selbst loscht. 

Vom Programm aus wird eine Schrittweite von 10 eingestellt. 
Diese kann aber durch Verandem des Wertes in Adresse 
49296 — im Bereich von 1 bis 255 — eingestellt werden. Der 

Wert der ersten Zeilennummer wird in die Adressen: 49294 
(High-Byte) und 49295 (Low-Byte) eingepoket, wenn Sie mit 
einem anderen Wert als 10 beginnen soil. 
Beispiel: POKE 49296 r S:POKE 49294,INT(Z/256):POKE 

49295,Z-(INT(Z/256)*256) 
S = Schrittweite ; Z = Wert der ersten Zeilennummer 
Durch Eingabe von Pfeil-links/Return kann nun eine Zeilen- 
nummer angefordert werden. Die Vorgabe einer Zeilennum- 
mer wird akustisch untermalt. Nun kann eine Basic-Zeile wie 
gewohnt eingegeben und mit der Return-Taste abgeschlossen 
werden. Die nachste Ausgabe erfolgt wieder auf Anforderung, 
mit der eingestellten Schrittweite. 

(Thomas Schulz/rg) 



10 
n 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



*** AUTONUM 64 *** 

AUTOMATISCHE 
ZE I LENNUMMERNVORG ABE 



> 



1 
1 



IN 49294 
IN 47295 
IN 49296 



EIN UTILITY VON: 

TH- SCHULZ 
POSTFACH 602542 
2000 HAMBURG 60 
TEL. 040/6316055 



27 
28 
29 
30 
31 



33 
34 



36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



ZEILENNR. LOW -BYTE 

ZEILENNR. HIBH-BYTE 
REM ZEILENABSTAND (1-255) 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

POKE 49294, 0:POKE 49295, 0:POKE 49296,10 
POKE 55,05 POKE 56, 195: AD=49152: Z=0 
POKE 53280,0: POKE 53281 ,0: PRINT CHR$<30) 

<205> 
PRINT CHR*<147> ; 
READ X:IF X=-l THEN 51 
POKE AD,X:AD=AD+l:Z=Z+X:BOTO 33 
DATA 32,115,0,201,95,240,6,32,121,0,76 
DATA 231 , 167,32, 1 15,0,24, 173, 144, 192 
DATA 109,142,192,141,142,192,144,3,238 
DATA 143,192,162,23,160,0,24,32,10,229 
DATA 173,143,192,174,142,192,32,205 
DATA 189,169,152,133,251,169,7,133,252 
DATA 169,119,133,253,169,2,133,254,160 
DATA 0,177,251,201,32,240,6,145,253 
DATA 200,76,66,192,132,198,160,0,162,23 
DATA 24,32,10,229,169,15,141,24,212 
DATA 169,207,141,7,212,169,34,141,8 



<040 

<154> 

<034> 

<139> 

<157> 

<15B> 

<137> 

<185> 

< 085 > 

<162> 

<163> 

<225> 

<165> 

<073> 

<050> 

<214> 

<233> 

<170> 

<171> 

<194> 

<110> 



<136> 
<184> 
<094> 
<237> 
<157> 
<007> 
<247> 
<120> 
<027> 
<019> 
<108> 
<062> 
<111> 
<12B> 



46 
47 
48 
49 
50 
51 
52 
53 

54 
55 



<009> 
<013> 
<169> 
<087> 
<052> 
<150> 
<060> 
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DATA 212,169,240,141,13,212,169,17,141 

DATA 11,212,162,64,160,255, 136,208,253 

DATA 202,208,248,169,0,141,11,212,76 

DATA 128,164,169,0,141,8,3,169,192 

DATA 141,9,3,96,-1 

IF ZO18097 THEN 55 

PRINT CHR$(147)CHR$<17>; 

PR I NT " AUTONUM C SPACE 3 64 C SPACE2 1 ZE I LENNR . VORG . 

:CSPACE23_"; <122> 

PRINT CHR*< 18) "RETURN": SYS 49283: NEW <050> 

PR I NT CHR* (17)" FEHLER I SPACE 1 1 N C SPACE 1 DATAS ! 

<077> 
PRINT CHR$(17) "CHECKSUMMECSPACE3]"CHR*(18); 

<054> 
PRINT" C SPACE] 1ST: "CHR*< 146) Z CHR*<18); <009> 



58 PRINT TAB ( 15)"S0LL: "CHR*( 146) 18097: END <051 



> 



Worktool 



eine 



mierhilfe 




ram 



Drei nutzliche Optionen zur Programm- 
eingabe werden durch dieses Pro- 
gramm realisiert. Farbwahl, aktuelle 
Zeitangabe und Warnton bei mehr als 
80 Zeichen Eingabe auf Tastendruck. 

Wie der Name schon sagt, hilft das »Worktool« dem Program- 
mlerer bei der Eingabe seiner eigenen Programme. Mehrere 
Optionen, die ansonsten nur bei erheblich teureren Geraten 
oder Hardware— Erweiterungen zu finden sind, werden ohne 
Basicspeicherverlust vom Toolkit ubernommen. 

Mittels Funktionstasten werden folgende Erweiterungen an- 
gesprochen: 

— F1: Rahmen, Innenteil und Cursor erscheinen in einer 
vorher von Ihnen festgelegten Farbkombination. 

Beim Schreiben von Programmen oder deren Test wird die 
Farbkombination, die Sie zur Eingabe verwenden, oft durch 
das Programm geandert. Haben Sie die Worktoolerweiterung 
eingegeben, konnen Sie sich jetzt, nach dem Probelauf 20 Ta- 
stendruckeersparen urn Farbkombinationen, wiezum Beispiel 
braun-rot-violett in Ihre Lieblingskombination zu verwandeln. 

— F3: Ausgabe der aktuellen Uhrzeit, oder einer Stopp- 
uhr. Wollen Sie wissen wieviel Uhr es ist, oder wie lange Sie 
schon mit dem Toolkit arbeiten, so genugt ein Druck auf F3. 
Wie sonst nur bei Steckmodulen der oberen Preisklasse wird 
vom Computer in der Mitte der 1. Zeile die Zeit in reverser Dar- 
stellung ausgegeben. Jedoch nicht permanent, sondern nur 
solange die Taste gedruckt ist. Das hat den Vorteil, daB keine 
Bildschirmzeile verloren geht. 

— F5 und F7: Falls der eine oder andere von Ihnen schon 
einmal am CBM 4032 gearbeitet hat, wird er bestimmt be- 
merkt haben, daB dieser eine praktische Eingabehilfe besitzt. 
Er gibt, wenn der Cursor eine bestimmte Spalte erreicht, einen 
Piepser aus. Diese Option wurde beim Worktool noch erheb- 
lich verbessert. Im Direktmodus gibt er jetzt immer einen hellen 
Ton (ahnlich Tastaturklick) aus, sobald der Cursor die Spalte 35 
oder 75 erreicht. Im Programmeingabemodus dagegen wird 
bei 35 der Klick, bei 75 ein Sagezahnton, und bei 80 ein auf- 
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C64 



Worktool 









und abschwellender Ton erzeugt. Jeder kennt das ungeheuer 
langwierige und nervenzermurbende Editieren einer falsch 
elngegebenen PRINT-Zeile. Gerade im Programmierrausch 
schreibt man oft uber die maximale Zeilenlange hinaus, und 
mul3 spater zeitaufwendig ausbessem. 1st mit F5 die Tonoption 
eingeschaltet, gibt der Computer rechtzeitig die oben genann- 
ten »Erinnerungstone« aus. Mit F7 laBt sich diese Funktion 
ausschalten (hebt das Klima beim Mittagsschlaf Ihrer Frau). 

Im Programm selbst wurde weitgehend auf Steuerzeichen 
verzichtet, und stattdessen der CHR$ und POKE-Befehl ver- 
wendet. Die DATAs sind der Ubersicht und der Arbeitserspar- 
nis halber in hexadezimaler Form einzugeben und werden von 
einer Routine automatisch umgerechnet. Das Programm gibt 
bei Fehleingabe einen Checksumfehler mit der Angabe des 
betreffenden Datenblocks aus. Die Funktionen einzelner Ab- 
schnitte sind in REM-Zeilen kurz urhrissen. Das Basic- 
Programm benotigt 3k Speicher. Nachdem Sie Ihre Eingaben 
gemacht haben, loscht sich der Basic-Teil selbst und nur noch 
zirka 250 Bytes im abgeteilten Maschinensprachespeicher 
bei $C000 sind notig. Es ist also der gesamte Basic-RAM frei 
verfugbar. 

(UlrichGrothaus/rg) 



10-110 
120-140 

220 

230 



240 



250-280 



260-410 



490 



500-590 



660-690 
700-710 



710 



720-760 



Ausgabe von Kopf und Menu 
Eingabe der gewunschten Farbkombi- 
nationen 

Farbwerte fur Maschinenprogramm 
merken 

Eingabe der aktuellen Uhrzeit bezie- 
hungsweise wenn nur RETURN der Null- 
stellung der Stoppuhr 
diese Funktion rechnet den Dezimalwert 
in den TOD-BCD-Wert urn 
Auswerten des Zeitstrings, Einlesen der 
Werte in die CIA's und initialisieren der 
TOD Register, sowie starten der Uhr 
Einlesen der Vorroutine und des Haupt- 
teils sowie Start der Vorroutine. Die GO- 
SUBs springen zum Umrechnen und 
Einpoketeil 

Mit dem POKE 792, 193 wird das Low- 
byte des NMI-lnterruptvektors auf einen 
RTI gelenkt. Dadurch ist die RESTORE- 
Taste ausgeschaltet, was ein Zuruckset- 
zen der unteren Pages verhindert. Im 
Bedarfsfall konnten Sie dies durch Lo- 
schen der Zeile Oder nachtraglich mit 
POKE 792,71 ruckgangig machen. 
Kurze Erklarungen und Abfrage, ob sich 
das Basic- Programm loschen kann. Ge- 
ben Sie »N« ein, beginnt es von vorne. 
Ausgabe des Kopfes 
Sobald eine Taste gedruckt wird, loscht 
sich der Bildschirm, der Basic-Teil, und 
das Maschinenprogramm wird gestartet. 
Ferner wird der Bildschirm geloscht, so 
daB der gesamte Bildschirm zum Pro- 

grammieren frei ist und kein Ausgabe- 

kopf stort. 

Die Schleife dient auf recht unkonventio- 

nelle Weise dazu, das Basic-Programm 

zu loschen, aber trotzdem noch den SYS 

abzuarbeiten. 

Einleseroutine fur den 1. Maschinen- 

spracheteil. Zeile 730 und 740 rechnen 

die hexadezimalen DATAs in Dezimalzah- 

len von bis 255 urn. 



770-790 



800-840 



850-1180 



Diese DATA-Zeilen enthalten den 1. Teil 
des Maschinenprogramms. 
Einleseroutine fur den 2. Maschinen- 
spracheteil. 

Diese DATA-Zeilen enthalten das Inter- 
ruptprogramm. 



Programmbeschreibung 



$ C000-C00D Der Interrruptvektor wird auf das Work- 
tool zusatzlich zur normalen Interruptrou- 
tine des Betriebssystems jede sechzigs- 
tel Sekunde abgearbeitet wird. 

$ C00E-C03A Hier wird entschieden ob aufgrund einer 

gedruckten Funktionstaste oder eines 
Registerwertes in ein Unterprogramm 
verzweigt werden soil. Am Ende dieses 
Teils beziehungsweise einer aufgerufe- 
nen Unterroutine wird die normale Inter- 
ruptroutine angesprungen. 

$C040-C052 Falls F1 gedruckt ist, setzt diese Routine 

die Farbregister auf den eingestellten 
Wert, das hei(3t der Bildschirm erscheint 
in den von Ihnen gewunschten Farben. 

$ C057-C08E Wenn F3 gedruckt ist, werden die TOD- 

Register ausgewertet und die Zeit aktua- 
lisiert beziehungsweise ausgegeben. 
Dies hat gegenuber ahnlichen Program- 
men den Vorteil daB Sie die Zeit bei ihrer 
Programmeingabe uberschreiben kon- 
nen, was bei der Ausgabe der Zeit im In- 
terrupt nicht moglich gewesen ware.Sie 
konnten ansonsten die 1. Bildschirmzei- 
len nicht benutzen, weil das einen Syn- 
tax Error hervorrufen wurde. 

$ C091-C0A6 Die derzeitige Cursorposition wird abge- 

fragt und bei Bedarf, sofern Sie diese 
Option aktiviert haben, in eine Tonausga- 
beroutine gesprungen. 

$ C0AD-C109 In diesem Teil werden die verschiedenen 

Tone ausgegeben. 



Aufbau der Maschinenroutine 



REMWORKTOOL 

1 REMULRICH GROTHAUS 

REMFALLWEG IB 
REM8450 AMBERS 



2 

3 

4 

5 

10 

20 

30 

40 

50 

60 

70 



<116> 
<040> 

<096> 

<117> 



REM 
REM 
REM 



ABFRAGE DER OPTIONSWERTE 



<062> 
<063> 
<057> 
<025> 
<077> 
<098> 
<108> 
<039> 






RESTORE: POKE 53280,0: POKE 53281,0 

PRINT CHR* ( 147) : POKE 646,5 

: PR I NT " *************** C WH I TE D WORKTOOL CGREEN 1 

*##***********#*#" <096> 

80 POKE 646,7:PRINT TAB<8) "VONCSPACEJULRICH 

CSPACE IGROTHAUS" <044> 

90 POKE 646,15:PRINT:PRINT:PRINT:PRINT"0PTI0NB 

:";,:P0KE 646,10 <126> 

100 PRINT"F1=FARBECSPACE3SETZEN" 

: PR I NT , " F3=ZE I T [SPACE 1 AUSGEBEN " 

:PRINT,"F5=WARNT0NCSPACE3EIN" <173> 

110 PR I NT , H F7= WARNTON C SPACE 1 AUS " : PR I NT : PR I NT 

:POKE 646,14 <235> 

120 INPUT ,, FARBCODECSPACE3RAHMEN";R <191> 

130 INPUT"FARBCODE[SPACE]GRUND";G <131> 

140 INPUT M FARBCODECSPACE]CURSOR M ;C <231> 

150 : <208> 

160 : <21B> 
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170 


180 


190 


200 



REM 

REM WERTUEBERGABE MASCHINENPROGRAMM 

REM 



210 : 



<172> 
<002> 
<192> 
<002> 
<012> 



220 POKE 49425 ,R: POKE 49426, G: POKE 49427, C <144> 
230 PRINT:PR1NT TAB(7) ; "HHMMSS" :PRINT CHR*<145); 

: INPUT" ZE IT [SPACE 3" ; Z* <092> 

240 DEF FN F (X)=INT(X/10)*16+ (X-INT(X/10) *10) 

<194> 
250 H=VAL(LEFT*<Z*,2) ) :M=VAL(MID*(Z*,3,2) ) 

:S=VAL(RIGHT*CZ*,2)) 
260 POKE 56335, PEEK (56335) AND 127 
270 POKE 56329, FN F(S):POKE 56330 f FN F(M) 

:POKE 56331, FN F(H):PQKE 5632B,0 
280 POKE 56334, PEEK (56334) OR 128 



<239> 
<048> 



290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 



REM 
REM 
REM 



EINLESEN DER DATEN 



GOSUB 720 

FOR T=l TO 4: SYS 36500: NEXT 
FOR T=l TO 40: PRINT: NEXT 
POKE 646 , 1 3 : PR I NT " DAS CSPACE2 3E I NLESEN 
CSPACE2 IDES CSP ACE 3MASCH I NENPROGRAMMES CSPACE 3 



<169> 
<06B> 
<093> 
<103> 
<057> 
<106> 
<077> 

<143> 

<153> 
<143> 
<149> 
<204> 



DAUERT CSPACE 315 CSPACE 3SEKUNDEN" 
400 GOSUB 800 

410 FOR T=l TO 4: SYS 36500: NEXT 
420 : 
430 : 

440 REM 

450 REM BENUTZERHINWEISE 

460 REM 

470 : 
480 : 

490 POKE 792, 193: PRINT CHR* ( 1 47 ) : POKE 646,7 

<072> 



<135> 
<182> 
<189> 
<223> 
<233> 
<142> 
<029> 
<162> 
<017> 
<027> 



500 PR I NT ■ AUS C SPACE 3PROGR AMMTECHN I SCHEN CSPACE 3 
GRUENDEN CSPACE 3 1 ST CSPACE 3DER C SPACE , WH I TE 3 
NM I - 1 NTERRUPT " 5 : POKE 646 ,7 < 097 > 

510 PRINT" CSPACE 3AUSGESCHALTET(ZEILE CSPACE 3 

490)-" <062> 

520 PR I NT " DAS C SPACE 3 WORKTOOL CSPACE 3L I EGT C SPACE 3 
BEI CSPACE 349 152." <1B4> 

530 PR I NT " ES C SPACE 3S I ND CSPACE 33891 1 CSPACE 3BYTES 
CSPACE 3BAS I C-RAM CSPACE 3FREE . " < 003 > 

540 POKE 53280, 0:POKE 646,3: PRINT" CDOWN 14 3KANN 
CSPACE 3 1 CH CSPACE 3M I CH CSPACE 3LOESCHEN CSPACE 3 



(J/N) ?" 
FOR T=l TO llsGET N*:NEXT 
560 GET A*: IF A*=""THEN 560 
570 IF A*="N"THEN GOTO 60 



590 


• 
m 


600 


REM 


610 


REM 


620 


REM 


630 


REM 


640 


* 



LOESCHEN DES BASICTEILS 
START DER TOOL- IRQ ROUTINE 



<077> 
<239> 
<154> 
<006> 
<128> 
<138> 
<092> 
<003> 
<227> 
<122> 
<18G> 
<19B> 



<076> 



660 POKE 53280, PEEK (49425): POKE 53281, 

PEEK ( 49426 ) : POKE 646 , PEEK < 49427 ) 

670 PRINT CHR* ( 147) ; " ♦*##«#*****»**#»aW0RKT00Lfl 
■a-*-*-*-**-**"**-*"**"*" <123> 

680 PRINT" CSPACE73 38634 CSPACE 3BYTES CSPACE 3 

FREE " : PR I NT < 1 60 > 

690 PR I NT " »*♦****♦*#*** 1 984 CSPACE 3BY CSPACE 3 

GRQTO**************" <251> 

700 GET A*: IF A*=""THEN 700 <034> 

710 PRINT CHR*(147):FQR T=204B TO 2060:POKE T,0 

:NEXT:POKE 45,3:P0KE 46,8:SYS 49152:END <028> 
720 PS=0:FOR AD= 36500 TO 36519 : READ DA* <093> 
730 L= ASC ( LEFT* ( DA* , 1 ) ) -48 : R=ASC ( R I GHT* ( DA* , 

1))-4B <179> 

740 P0=(L+<L>9)*7)*16+R-MR>9)#7:P0KE AD,PO 

: PS=PS+PO: NEXT < 105> 

750 IF PSO 2456 THEN PRINT" CCLEAR3 

PRUEFSUMMENFEHLER CSPACE 3 1 M CSPACE 3 1 - CSPACE 3 

DAT ABLOCK . " : END < 2 1 7 > 

760 RETURN <136> 

770 DATA A0,00,A2,00,8E,20,D0,E8 <048> 

780 DATA F0,03,4C,98,8E,C8,F0,03 <088> 

790 DATA 4C,96,8E,60 <233> 



800 PS=0:FOR AD= 49152 TO 49420 :READ DA* <144> 
810 L=ASC(LEFT*(DA*,1))-48:R=ASC(RIGHT*<DA*, 

l))-48 <004> 

820 P0=(L+(L>9)*7)*16+R+(R>9)*7:P0KE AD,PO 

:PS=PS+PO:NEXT <186> 

• 

830 IF PSO 32697 THEN PRINT" CCLEAR3 

PRUEFSUMMENFEHLER CSPACE 3 1 M CSPACE 32 - CSPACE 3 



880 
890 
900 
910 
920 



DAT ABLOCK -": END 
840 RETURN 

850 DATA EA,78,A9,0E,8D,14,03,A9 
860 DATA C0,8D,15,03,58,60,8D,04 
870 DATA D4,EA,A9,04,C5,C5,F0,28 
DATA A9,05,C5,C5,F0,39,A9,06 
DATA C5,C5,D0,03,8D,10,C1,A9 
DATA 03,C5,C5,D0,03,8D,10,C1 
DATA AD,10,C1,C9,06,F0,5A,4C 
DATA 31,EA,60,00,EA,EA,EA,EA 
930 DATA AD,11,C1,8D,20,D0,AD,12 
940 DATA C1,8D,21,D0,AD,13,C1,8D 
950 DATA 86,02,4C,1B,C0,EA,EA,AD 
960 DATA 0B, DC, 29, 7F,A2, 10,20,78 
970 DATA C0, AD, 0A, DC, A2, 13,20,78 
980 DATA C0, AD, 09, DC, A2, 16,20,78 
990 DATA C0,AD,08,DC,4C,31,EA,00 
1000 DATA 4B,29,F0,4A,4A,4A,4A,18 
1010 DATA 69,B0,9D,00,04,68,29,0F 
1020 DATA 18,69,B0,9D,01,04,60,EA 
1030 DATA EA,A5,D3,C9,23,F0,11,A5 
1040 DATA D3,C9,46,F0,2F,A5,D3,C9 
1050 DATA 4F,F0,4D,4C,31,EA,60,00 
1060 DATA EA,EA,EA,A9,06,8D,00,D4 
1070 DATA A9,78,8D,01,D4,A9,0A,8D 
1080 DATA 18,D4,A9,33,8D,05,D4,A9 
1090 DATA 00,8D,06,D4,A9,11,8D,04 
1100 DATA D4,4C,31,EA,EA,EA,EA,A9 

06,8D,00,D4,A9,32,8D,01 
D4,A9,0A,8D,18,D4,A9,63 
8D,05,D4,A9,00,8D,06,D4 
A9,21,8D,04,D4,4C,31,EA 
1150 DATA A9,01,BD,03,D4,A9,0F,8D 
1160 DATA 18,D4,A9,FF,8D,06,D4,A9 
1170 DATA 00,8D,05,D4,A9,41,8D,04 
1180 DATA D4,4C,31,EA,00 



1110 DATA 
1120 DATA 
1130 DATA 
1140 DATA 
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<i0i> 

<217> 
<174> 
<129> 
<204> 
<187> 
<198> 
<185> 
<231> 
<026> 
<241> 
<006> 
<036> 
<000> 
<028> 
<033> 
<064> 
<044> 
<029> 
<046> 
<099> 
<127> 
<100> 
<165> 
<142> 
<135> 
<115> 
<236> 
<135> 
<190> 
<178> 
<197> 
<215> 
<254> 
<197> 
<012> 
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(I 



Ein super T-Shirt 
mit den) Bild 
von den beiden 
kann man auch bestellen 



Du, jetzt gibt es ein Malbuch mit Comics 
von Captain Computer & MikroHlaus. 
Da lernt die liikro— Maus, 
was man alles mit einem Computer machen kann 



Und wo kann ich das kau-fen? 











i& 



.1 






Das Computer Malbuch 



l 



I 



Mihro-Maus 



Eine lustige Reise 
durch die Computerweft fur Kinder 



. — - 






< : 






Das T-Shirt konnt Ihr 
mit dem Bestel Ischein bestellen. 

Bittet Eure El tern, 
einen Scheck in Hone von DM 15,- 
beizulegen - fcein Bargeld. 



* Das Computer-Mai buch 
bekommt Ihr -fur DM 6,80 im 
Zeitschrif tenhandel . 



W*^""**^^W^**W>»W^^Wi^^^^^WPWwWPW^^HWwW^W*^*iPOWI|B^ 



Bitte ausschneiden und mit einem Scheck in Hbhe von DM 15 ? - in einen Fensterumschlag stecken ! 




T-Shirt-Bestel lung: 

Captain Computer & Mi kro— Maus 

einkreisen: 



Bitte die gewunschte BroBe 



GroBe 



128 



1 40 



152 



Alter 



4-5 



5-6 



1-12 



12-16 



(Umtausch ausgeschlossen) 

Einen Scheck Qber DM 15,- 

fiir das T-Shirt habe ich beigelegt 



ellscha-ft 



Markt & Technik 

Verlag Aktienges 

— Buchverlag — 

"Captain Computer & Mikro-Maus" 

Hans-Pi nsel -Str . 2 



Absender ; 



Name 



StraBe 



8013 Haar bei Munchen 



PLZ/Ort 



Unterschri-ft 



Mini-G Basic 



VC20 



Mini 
fur den 






Dieses Proqramm fur VC 20 mit minde- 



stens 16 KByte-Speichererweiterung 
implementiert zehn neue Befehle, die 
sich auf die Bildschirmdarstellung und 
die Grafik des VC 20 beziehen. 



Mini-GBasic ist eine Befehlserweiterung, die schnelle 
Grafik-Routinen in Maschinensprache beinhaltet. Mini-GBasic 
bietet 1 neue Befehle zum Beispiel zum Setzen oder Loschen 
eines Punktes oder zum Verbinden zweier beliebiger Punkte. 
AuBerdem wird ein Scrollen des Bildschirmes in alle vier Rich- 
tungen ermoglicht, was bei Spielen sehr nutzlich sein kann. 
Mini-GBasic zeichnet sich dadurch aus, daB die neuen Befehle 
voll implementiert sind, so daB auch nach einem IF..THEN- 
Statement kein Doppelpunkt gesetzt werden muB, wenn einer 
der neuen Befehle folgt (dies ist bei, mir aus anderen Compu- 
terzeitschriften bekannten, ahnlichen Programmen leider nicht 
der Fall). 

Zu erwahnen ist noch, daB man bei Mini-GBasic fur die Be- 
fehle DRAW beziehungsweise CDRAW und SET beziehungs- 
weise RESET benbtigte Parameter, wie bei Basic-Funktionen, 
in Klammern eingeschlossen ubergibt (dabei wird zur Uber- 

nahme beliebiger Ausdrucke das ROM-Unterprogramm GET- 
BYTE ab Adresse $ D79B verwendet). 

Zur Fehlerbehandlung 

Das Programm gibt die im »normalen« Basic vorhandenen 
Fehlermeldungen »illegal quantity error in...« bei fur die Grafik- 
Befehle nicht definierten Parametern und »syntax error in. ..« bei 
fehlenden Klammern und falsch eingegebenen Befehlswor- 
ten, die immer ausgeschrieben werden mussen, aus. 

Zu den allgemeinen Moglichkeiten des Programmes ist noch 
zu sagen, daB es mit 29568 (x-Achse:0-167; y-Achse:0-175) 
im 16x8-Byte-Modusarbeitet. 

Wichtig: Falls Sie das mit dem »Basic-Lader« geSAVEte Ma- 

schinenprogramm testen wollen, mussen Sie nach 
dem Ladevorgang erst einen System-Reset mit SYS 
64802 durchfuhren und danach das eigentliche Ma- 
schinenprogramm mit SYS 9794 starten (das Pro- 
gramm setzt automatisch den Basic-Start herauf und 
* fuhrt den Befehl »New« aus). 

Zur Eingabe des Programms 

- 

• Vor dem Eintippen des Basic-Laders wird der Basic-Start 
mit den Befehlen POKE 9823,0:POKE 43,96:POKE 
44,38:NEW herauf gesetzt. Dies ist notwendig, da sich der 
Basic-Lader sonst selber uberschreiben wurde. 

• Nach dem Start des Basic-Laders wird das Maschinenpro- 
gramm eingePOKEt und eine Prufsumme erstellt. Bei feh- 
lerhafter Eingabe der DATAs wird eine Fehlermeldung 
ausgegeben. 

• Der Basic-Lader wartet mit Ausgabe der Frage »Bereit zum 
Absaven?« auf Eingabe der Taste »j«. Danach wird das Ma- 
schinenprogramm abgeSAVEt. 



• Das nach der eben beschriebenen Vorgehensweise geSA- 
VEte Maschinenprogramm kann nun einfach durch Einga- 
be von »LOAD« an die Stelle geladen werden, an der es vor 
dem AbSAVEn gestanden hat. Dies wird dadurch erreicht, 
daB es vorher mit dem Befehl »SAVE "MINI GBASIC", 1,1«ge- 
SAVEt wurde. 

• Nach dem Einladen des Maschinenprogrammes muB ein 
System-Reset durchgef iihrt werden (SYS 64802), wonach 
die Befehlserweiterung mit SYS 9794 gestartet werden 
kann. Dieser SYS- Befehl muB auch nach eventuell durch- 
gef uhrten System-Resets eingegeben werden, da dabei al- 
le Basic-Vektoren zuruckgesetzt werden. Nachdem sich 
die Befehlserweiterung mit »READY« gemeldet hat, konnen 
die Befehle benutzt werden. 

Vor alien Befehlen muB ein Ausrufezeichen, das Erken- 
nungsmerkmal fur den Computer, daB jetzt einer der neuen 
Befehle folgt, stehen, da sonst eine »Syntax error«-Meldung 
ausgegeben wird. Nach dem Ausrufezeichen folgt der neue 
Befehl voll ausgeschrieben. 



Die Befehle im einzelnen 



IGMODE: 



!TMODE: 



Umschalten in den Grafikmodus und Loschen 

des Zeichensatzes. 

Umschalten in den Textmodus und Loschen 

des Bildschirmes. 
SDSCROLL: Scrollt den Bildschirm (im Textmodus) urn 

eine Zeichenposition nach unten. 
IUSCROLL: Scrollt den Bildschirm (im Textmodus) urn 

eine Zeichenposition nach oben. 
!LSCROLL: Scrollt den Bildschirm (im Textmodus) urn 

eine Zeichenpostition nach links. 
!RSCROLL: Scrollt den Bildschirm (im Textmodus) urn 

eine Zeichenposition nach rechts. 
■SET (x,y): Setzt einen Punkt (im Grafikmodus) auf die 

Koordinate (x,y). 
[RESET (x,y): bDScht einen Punkt (im Grafikmodus) auf der 

Koordinate (x,y,). . 
!DRAW (x,y): Zieht eine Linie (im Grafikmodus) von der letz- 

- ten durch !SET,!RESET,!DRAW oder ICDRAW 

gesetzten Koordinate zur Koordinate (x,y). 
ICDRAW (x,y): Loscht eine Linie (im Grafikmodus) von der 

letzten durch ISET, ! RESET,! DRAW oder 

ICDRAW gesetzten Koordinate zur Koordina- 
te (x,y) 

beliebiger numerischer-oder String-Ausdruck 

mit dem Wert 0-167 

beliebiger numerischer-oder String-Ausdruck 

mit dem Wert 0-175 
ICLEAR: Loscht den Grafik-Bildschirm 



(x,y): 



x = 



y = 



Anmerkung zu IGMODE: 

Die Farbe, in der die Punkte auf den Bildschirm gebracht wer- 
den, laBt sich verandem, indem man den Inhalt der Speicher- 



Tabelle 1. Ubergabe der Parameter fur SET+RESET und 
DRAW+ CDRAW: 





SET+RESET: x1,y1 






DRAW+CDRAW: x2,y2 




Adresse 




Variable 


$033C 




x1 


$033D 


i 


y1 


$0359 




x2 


$035A 




y2 
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Tabelle 2. Routinen und DATA-Felder beim Mini-GBasic 



Adresse in HEX 

$1100-2000 

$2000 

$2028 

$2050 

$20CA 

$21CO 

$2250 

$22AO 

$22E5 

$2300 

$2312 

$2378 

$23BA-23FF 
$25BA-25BF 



Zeichenspeicher 

GMODE 

CLEAR 

TMODE 

SET+ RESET 

DSCROLL 

LSCROLL 

RSCROLL 

INITIAL 

sucht Ausrufezeichen im Basic-Text 

DECODE 

neuelFTHEN 

Routine 

DATA: Befehlswort 

DATA: Adressen der Routinen 



zelle 8224 (dezimal) mit dem gewunschten Farbcode belegt, 
bevor der Befehl !GMODE, der dann den Farbcode in den 
Farbspeicher bringt, ausgefuhrt wird. 

Vorsicht ist bei der Benutzung der Graf ik im Direktmodus des 
Computers geboten. Da der neue Zeichensatz teilweise im 
Bildschirm-RAM-Bereich liegt (das ist notwendig urn mit der 
hohen Auflosung von 168 x 176 Punkten arbeiten zu konnen), 
ist es moglich, mit dem Cursor in den ersten 32 neu def inierten 
16 x 8 Bit Zeichen »herumzufahren«. 

Fur diejenigen, die selber In Maschinensprache program- 
mieren, ist hier noch eine Liste mit den Einsprungadressen der 
wichtigsten Routinen und der Lage der Befehlswort- DATAs ab- 
gedruckt (Tabellen 1 und 2). Zur Benutzung der Routinen 
SET/RESET und DRAW/CDRAW sei noch angemerkt, da(3 ein 
Einsprung in die jeweilige Routine mit gesetztem Carry-Flag 
das Setzen eines Punktes beziehungsweise das Zeichnen ei- 
ner Linie und der Einsprung mit geloschtem Carry-Flag das L6- 
schen eines Punktes Oder einer Linie bewirkt. 

(Jurgen Skerhut / ev) 



a 


REM MINI GBASIC 


i 


REM 


■ 


2 


REM J (J ERG EN SKERHUT 


3 


REM DONATUSSTR.S 


4 


REM 5210 TROISDORF 


5 

6 


REM 




REM 




7 


REM 






DATA 




24 


DATA 


151 , 141 ,3, 144 


26 


DATA 


169,21,1 4 1 


28 
30 


DATA 


2, 144, 169,204 


DATA 


141 ,5, 144, 169 


32 


DATA 


14, 141 ,0, 144 


34 
36 


DATA 


162,0, 160, 16 


DATA 


152, 157,0,16 


38 
40 


DATA 


1 69 ,6,157, 


DATA 


148,232,200 


42 


DATA 


208,243, 169 


44 


DATA 


17,160,0,133 


46 


DATA 


1 1 "K"? o\ 1 s*? 


48 


DATA 


145,0,24, 169 


50 


DATA 


1 , 101 ,0, 133 


1ST •■"> 
-..J .■:. 


DATA 


0, 169,0, 101 


54 


DATA 


1 , 133, 1,201 




DATA 


32 , 208 , 236 


tarn 


DATA. 


76, 174, 199 


60 


DATA 


234,234,234 



< 1 1 > 

<144> 
<199> 

< 1 2 > 
<023> 

< 1 48 > 
<149> 

< 1 50 > 
<045> 
<024> 
<142> 
<036> 
<041> 
<203> 
<240> 
<247> 
<208> 
<201> 

< 2 1 6 > 
<249> 

< 1 96 > 
<007> 
<195> 
<205> 
<201> 

<173> 

<193> 
<226> 



62 DATA 
64 DATA 
66 DATA 
68 DATA 
70 DATA 
72 DATA 
74 DATA 



*"1-T 



?"T/J r>"T/l OT/l 

234,234,234 
169,12, 141 
0, 144, 169,22 
141 ,2, 144, 169 
174,141 ,3,144 
169, 192, 141 
76 DATA 5, 144,32,95 
78 DATA 229,96,32,80 
80 DATA 32,76,174,199 
82 DATA 234 , 234 , 1 69 
84 DATA 0, 141 ,65,3 
86 DATA 141 ,66,3, 141 
88 DATA 67,3,162,8 

78,64,3, 144 
19,24, 173,62 
94 DATA 3, 109,66,3 
96 DATA 141,66,3, 173 
DATA 63,3,109,67 

3,141,67,3 
78,67,3, 110 
104 DATA 66,3,110,65 
106 DATA 3,202,208 
108 DATA 220,96,234 
1 1 DATA 234 , 234 , 56 
112 DATA 173,68,3,237 
114 DATA 69,3, 141 ,70 
116 DATA 
118 DATA 



90 DATA 
92 DATA 



98 

100 DATA 

102 DATA 



1 -"T'fTt 



i *?Q 



144 
146 
148 
150 
152 
154 
156 
158 
160 
162 
164 
166 
168 
170 
172 
174 
176 
178 
1 80 
182 
184 
186 
188 
190 
192 
194 
196 



•3.V6,24„ 173 



, 9 6 , 



DATA 



122 DATA 
124 DATA 



7 1 . 3 .101.0 
133,0,1 73 

72.3. 101 .1 

.1. ■..-■ ••*.' if .1. q 7 O !j| .L Cj 7 



126 DATA 0, 133,0, 133 



DATA 



1 ,96,234,234 
130 DATA 234,8, 169 
132 DATA 0, 162,0, 160 
134 DATA 0,32, 192,32 

1 69 , 30 ,141 



1 :j a u m I H 

J. •.::- 8 D H ! H 
140 DATA 



62,3, 169,1 
141 ,63,3, 173 
142 DATA 61 ,3,41 ,240 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



74,74,74,74 
141 ,64,3,32 
112,32, 173 
65,3, 141,71 
3,173,66,3 

T X 1} / tf£. H 'ml* B W U'L 

176,32, 169 
16, 141 ,64 
3 , 1 73 ,60,3 
41 ,248,74 
74,74,141 
62,3, 169,0 
141 ,63,3,32 

65,3, 141,71. 

3,1 73 , 66 , 3 
1 n. 1 7*3 "r t^ 

/ o , -.:« ..::. , 1 / o 

61 ,3,41 , 15 
141 ,71 ,3, 169 
0,141 ,72,3 
32,176,32 
169,7, 141 
68,3,173,60 
3,41 ,7, 141 
69,3,32, 165 
32, 169, 17 



<228> 
<230> 
<182> 
<024> 
<078> 
<077> 
<247> 
<244> 
<046> 
<104> 
<255> 

< 1 9 1 > 

<040> 
<208> 
<006> 
<054> 
<209> 
<055> 

< 1 2 > 

< 1 4 > 

< 1 1 > 
<166> 

.. ^ ~ r .« . 
\ s~ -m" VJ y 

<079> 
<024> 
<030> 

< 2 1 8 > 

< 1 8 1 > 
<224> 
<090> 

< 1 9 > 
<089> 
<206> 
<027> 
<035> 
<001> 



253 > 



<096> 
<042> 

<067> 
<049> 
<003> 
<057> 

< 1 2 > 
<056> 
<026> 
<224> 

< 1 4 > 



.• *j 



,.- ^ -r cr •■ 



<024> 
<070> 
<025> 
<079> 
<034> 
<07S> 
<043> 
<032> 
<142> 
<033> 
<253> 
<004> 
<103> 
<044> 
<108> 
< 1 2 > 



79 



i 



Mini-G Basic 



VC20 



198 



.•:.. 










DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

T\ f\ T" J"w 

X.)H I M 

23S DATA 
240 DATA 



ji! Ic'J ..•:."! 

204 

.«:.. vJ Q 

208 
2 i 
212 
214 

218 

220 

■••;> *"? *~$ 

a!., .u.. *Cm 
^ A'L ** 

xL xl 6 

223 
230 



141 ,72,3, 169 
0, 141 ,71 ,3 
...:^::. 9 1 / a , ojt 

174,70,3, 18? 

117,33,141 
73,3, 165,1 
201 ,32, 144 
2,40,96, 160 
0, 173,73,3 
40, 176,7,73 
255,49,0, 145 
0,96, 17,0 

•I. T wJ q W i) "7 O n J. 



"T • M "i 



232 



?: : -;4 



.•:.. ■—• i.j 



2,4,8, 16, 3 2 
64, 128,234 
234 , 1 69 , 90 
133,43,169 
38, 133,44 
169,0, 141 
89,38,32,68 

•7 o , 7 a , 1 a •_..' 
159, 133,164 



^:„ *t j^. 

244 

248 
250 

•-i Eg •i 

.^:. -J ^L 

254 






...... c:: . _ 

260 

j;.. '.... : .iU. 

264 
266 
268 
270 

j£ / H- 

.i^. / a 



282 
284 
286 

238 
290 

294 
296 
298 
300 
302 
304 
306 
308 
310 
312 
314 
3 1 6 
318 
320 

-^r fy /"^ 
•tm* al- .&- 

324 
326 



328 
330 



-r - : r .-•;, 

...■ •.„■ x- 



DATA 165,1,133 
DATA 166,165,153 
133, 163, 133 

22, 133,158 
133,0,165 

133, 159,24 
105, 132,133 
1 ,96,234,234 
234,234, 16? 
32 , 1 60 ,21 
145, 158, 136 
16,251 ,96 
234, 169, 17 

164, 169, 149 

1 •-.« ■...' 5 1 q 1 •...' •-' 

166, 169,206 

■j -r-r -j ESJO 1 T.-T 

,169, 228 
133, 163, 133 
165,234, 160 

21 ,177, 158 
145,163,177 
0, 145, 165 
136,16,245 
32, 144,33 
165,159,201 
15,208,234 
169, 16, 133 
159,169,0 

181,33,76 
174,199,234 
234,234,8 
24, 165, 158 
105,22, 133 

158. 133.0 
169,0, 101 
159,133, 159 
133, 164,24 
169,132, 101 

159. 133. 1 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 

DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



133, 166,40 



DATA 144,3,164 



< 1 59 > 
<048> 

< 1 3 > 

< 1 7 1 > 
<062> 
<065> 
<062> 

< 1 1 9 > 

<069> 

<130> 

<180> 

<026> 

<079> 
..•■ -j o «~ s 

<091> 
<097> 
<095> 
<045> 
<043> 
<162> 

< 1 1 8 > 

<156> 

<049> 

< 1 66 > 

<153> 

< 1 1 4 > 

< 1 1 > 
<058> 
<064> 
<120'> 

< 1 6 1 > 

... mmM s 
*-. X~ aU Xm .-• 

<180> 
<067> 
<184> 
<086> 

< 1 39 > 
<185> 
<199> 
<079> 

<199> 
<192> 

<098> 
<192> 
<198> 

< 1 2 4 > 
<209> 

< 1 2 > 
<153> 

< 104> 

< 2 1 2 > 

< 1 6 1 > 

<168> 

<123> 

< 1 6 8 > 

••. j?~ o x + .- 

<126> 
<182> 
<169> 
<127> 
<126> 

••. j:L *t w 1 r 

<184> 
<234> 

< 1 39 > 

<190> 
<148> 






v> •«:• 4 



T T £. 
•.„« '^> l..; 

T "T O 
•-.« •...' \^ 



340 
342 
344 
346 
343 
350 



•-■ v. J .C. 



._■ %J *t 

•.-• %-.' a 
358 
360 






364 
366 
368 
370 
372 
374 
376 
378 
380 
382 
384 
386 
388 
390 



394 
396 
398 
400 
402 
404 
406 
408 
410 
412 
414 
416 
418 
420 






4 
424 

426 
428 
430 

432 
434 
436 
438 
440 
442 
444 
446 
448 
450 
452 
454 
456 
458 
460 
462 
464 
466 
468 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DA TA 
DATA 
DATA 



153, 136, 132 
163, 132, 165 
96, 164,158 
200, 132, 163 

J. •„.■ X.. , J. '~J :~i , I K..I 

234,234, 160 
0, 162,32, 138 
145, 153, 165 
158, 197,163 
240, 16,24 



|3 



,0,34 



169,22,101 

158. 133. 158 
169,0, 101 

159. 133. 159 
76,52,34,96 
234,234, 169 . 

J. K..I , J. •—» •-.' , J. \.J / 

133, 164, 169 
148, 133, 1 
133, 166, 169 
0, 133,163 
133,165, 169 
1 , 1 33 , 1 58 
133,0,234 
160,0,177 
158, 145, 163 
177,0, 145 
165,200, 192 
21 ,208,243 
165, 163,201 

56 

76, 105,34 
169, 16, 133 
159, 169,21 
133, 158, 169 
249, 133, 163' 
32,48,34,76 
174, 199,32 

J. 1 / j .&-JO if / '-J 

174, 199,234 
234,234, 169 
16, 133, 159 
133, 164, 169 

148, 133, 1 
133, 166, 169 

0, 133,158 
133,0, 16? 
1,1 33 , 163 

133, 165,234 
160,20,177 
153, 145, 163 
177,0,145 
165, 136, 16 
245, 165, 158 
201 ,228,240 
7,24,32,0 
34,76, 185 
34, 169, 16 
133, 159, 169 
0, 133, 158 
169,228, 133 
163,32,48 
34,76,174 
199,169,0 
141,8,3, 141 
60,3, 141 ,61 
3,169,35, 141 



<248> 

••. .i:~ *t u; .•• 

< 2 1 4 > 
<242> 

< 2 1 1 > 
<253> 
<044> 

< 1 2 > 

< 019 > 
<159> 

•:•" ? i *? ':■ 

< 1 9 > 

<164> 
<025> 
<028> 
<026> 

<231> 

<030> 
<179> 
<036> 
<179> 
<039> 
<188> 
<184> 

< 1 92 > 
<046> 
<199> 
<042> 
<248> 
<045> 
<207> 

:'* 9 S 1 '*:• 

< 2 1 2 > 
<010> 

< 1 6 > 
<06?> 
<066> 
<069> 

<022> 
<082> 
<078> 
<027> 
<032> 
<231> 
<088> 



80 






<2^?> 

•-. 2 -_•« o .-■• 

<038> 
<038> 
<098> 
<251> 
<B49> 
<107> 
<093!:= 
<248> 

< 014::: 

< 1 2 > 

< 1 1 8 > 
<007> 

< 1 1 9 > 

< 1 7 > 
<024> 
<029> 
<111> 

'-. J. J. j£~ -•■ 

< 1 7 3 > 

03(3? 



VC20 



Mini-G Basic 



47© DATA 



472 
474 
476 
478 
480 
482 
484 
4 8 6 
483 
490 
492 
494 
496 
498 
500 
502 
504 
506 
503 
510 



% J ,1. uL 



■= 1 4 



■= 1 6 



EST 

-J 

5:1.8 

520 

c.T -•? ••-;. 

%••* •!••■ »•••• 



524 



526 
528 
530 

i:r T -"•% 

V.J •._« .£. 

3 ...:• 4 

536 
538 
540 
542 






i::r 



44 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



M 



DAT 



DATA 
DATA 
DATA 



9 , 3 ,141,1 

-.-■ 4 .LOT, J. O / 

141,0,3, 76 

- #*•%•••« -T- ; r -r.", 

.1 j— / ^ ^• M *' u >JXh 

115,0,201 
139,240, 110 
201 ,33,240 

-/ •-;• •■"> i •"> i \A 

/ :; *«.' Omm i; J. J-- J. 4 Vt,. 1 

x O •! ,i:„ •-..« i 9 J. > j 

234, 162,0 

*l /I **? 'OR T ~:f-> 



f\ A 



FA 115,0,201 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



65, 144, 18 
157,96,3,232 
224,8,208 
241 ,234, 162 
11 ,76,55, 196 

• I "*ri • I tula ■ ■ itiM 

234, 142,94 
0, 189,96,3 



217 „ 186 



i • 






2 



208, 10,J23 
200,236,94 
3, 144,241 



T /- Q ~7 



sr •« *5 ~r a 



95,3, 173,95 
,201 , 11 , 144 






j... 



546 DATA 
548 DATA 



3,76,39,35 
185, 186,35 
200,201 ,33 
208,248,76 

95,3, 10, 168 
135,186,37 
141 ,0, 1 , 185 
187,37, 141 
1,1, 108,0 
1 ,32, 115,0 
169, 199,72 



550 


DATA 


169, 174,72 


cr r~ *•;> 
% J -.J ..:! 


DATA 


32, 158,205 


554 


DATA 


32,121 ,0,201 


556 


DATA 


137,240,3 


558 


DATA 


169,167,32 


560 


DATA 


255,206, 165 


562 


DATA 


97,208,3,32 


564 


DATA 


9,201 ,240 


566 


DATA 


14,32, 121 


568 


DATA 


0, 176, 1 ,76 


570 


DATA 


1 60 , ^WKJ , IKJH 


572 


DATA 


104,32, 121 


574 


DATA 


0,76,3,35 


U / Q 


DATA 


76,251 ,200 


,.... ... r .... 

a / a 


DATA 


i to -7*2 17? 


580 


DATA 


5, 144,201 


582 


DATA 


204,208,3 


584 


DATA 


32,80,32, 104 


586 


DATA 


1 70 , 76 , 58 


i:r r~k < "\ 

*j a a 


DATA 


196,71 ,77 


590 


DA FA 


79,68,69,33 


592 


DATA 


34,77,79,68 


594 


DATA 


69,33,68,83 




DATA 


67,82,79,76 


f" ""• ."" 

uJ 7 O 


DATA 




600 


DATA 


67,82,79,76 


602 


DATA 


/ 6 , :> •::■ , / 6 , o -• 


604 


DATA 


67.82/79,76 



< 1 7 > 


606 


DATA 


<039> 


603 


DATA 


< 072 > 


610 


DATA 


<029> 


6 1 2 


DATA 


<020> 


614 


DATA 


<129> 


616 


DATA 


< 077 > 


6 1 8 


DATA 


<076> 


620 


DATA 


<104> 


622 


DATA 


<038> 


A '"> ••'! 
O .•:_ -t 


DATA 


< 1 4 3 > 


\../ j:.. o 


DATA 


<034> 


628 


DATA 


<055> 


630 


DATA 


<206> 


632 


DATA 


<056> 


634 


DATA 




636 


DATA 




638 


DATA 


<159> 


640 


DATA 


< 1 1 5 > 


642 


DATA 


< 1 5 1 > 


644 


DATA 


<' 1 T> 2 '•> 


646 


DATA 


N .!. .i:U O .-*' 


648 


DATA 


% J. J. •«.' . * 


650 


DATA 




652 


DATA 


<070> 


654 


DATA 


<243> 


656 


DATA 


<189> 


658 


DATA 


< 2 1 4 > 


660 


DATA 


<139> 


662 


DATA 


<146> 


664 


DATA 


*4 .It J... J... ■* 


666 


DATA 


<150> 


668 


DATA 


<094> 


670 


DATA 


< 1 94 > 


672 


DATA 


<158> 


674 


DATA 


< 186> 


676 


DATA 


< 155> 


j -7 n 

■ A** • ■■■■ 


DATA 


<052> 


680 


DATA 


<136> 


682 


DATA 


<173> 


684 


DATA 


<168> 


686 


DATA 


•:•• 1 5 O '•:• 


Z. 13 

a o a 


DATA 


-•* r-^ -;r f-\ \ 


690 


DATA 


<109> 


692 


DATA 


<174> 


694 


DATA 


< 2 2 1 > 

<221> 


a t o 
698 


DATA 
DATA 


< 1 1 5 > 


700 


DATA 


< 1 1 3 > 


702 


DATA 


': X / •..' ,•• 


704 


DATA 




706 


DATA 


<167> 


708 


DATA 


< 1 2 7 > 


710 


DATA 


< 1 8 > 

< 1 9 1 > 
<130> 

< 134> 


7 1 4 
7 1 6 
718 


DATA 
DATA 
DATA 
DATA 


< 024 > 


720 


DATA 


<153> 


722 


DATA 


< 1 5 9 > 


724 


DATA 


< 1 > 


726 


DATA 


< 1 7 > 


728 


DATA 


<009> 


"7 -:*• p* 


DATA 


< 1 7 > 


7TO 


DATA 


< 1 > 


734 


DATA 


' : -. \u 4~ 1 .' : ' 


736 


DATA 


< 1 4 > 


738 


DATA 


< 2 5 > 


740 


DATA 



/ o , •_•• •_:> , a 2 , b O 
67,82,79,76 
76,33,83,69 
84,33,82,69 
83,69,84,33 
a cd , a ..:. , a u , a / 

33,67,68,32 
65,87,33,67 

/ O , O 7 , 6 U , O .^. 

162,5, 169 
0, 157,32,3 

j:L wJ ■&. , J. O , 4-. -SJ \Ci 
J. CD ^. , .::. ...;. , 1 '+ 

79,3,46,30 

3,46,81 ,3 

46,82,3,46 

83,3,46,84 

3,14,85,3 

46,86,3,46 

87,3,56, 173 

8— «,. ^ „.,. «- .... ^^ 
a:: , O .j ^:L - J / , O C) 

*r 1 AC3 i 77 

*-•• ^ J. W U n J. / •«* 

141 ,94,3, 173 
84,3,233,0 
144,37, 140 

32.3. 141 .84 
3, 173,94,3 
141 ,83,3,24 
169, 1, 109 

85.3.141 .85 
3,169,0,1 09 

86.3.141 .86 
3, 169,0, 109 

87.3.141 .87 
3 , 202 ,16,1 66 

9/, k%A -j per 

80 , 3 , 73 , 255 
105,0,153 
80 , 3 , 200 , 202 
203,242,96 
24, 173,85 
3,109,91 ,3 
141 ,91 ,3, 173 

86.3. 109.92 
3, 141 ,92,3 
173,87,3, 109 

93.3.141 .93 
3,96,24, 169 
128, 109,92 
3, 169,0, 109 
93,3,96,234 
8,32,202,32 
162, 1 ,56, 139 
89,3,253,60 






176,4 
73,255,105 

1 ,157,76,3 
202, 16,236 
13,77,3,208 
4,40,40,40 
96, 169, 1 , 141 

7Q T 1 Z, T> O 

169,0,157 
91 ,3,202, 16 
250, 173,76 
3,205,77,3 
176,60,169 



< 1 5 > 
<029> 
<024> 
<024> 
<027> 

<035> 

<030> 
<034> 
<040> 
<187> 



<229> 

*• ■!■■■ J... ■ ■" 

<227> 
< 1 8 2 > 

<246> 

<188> 

<246> 






<193> 
<000> 
<053> 
<056> 
< 2 1 > 

<249> 

<102> 



<254> 



«cr 



" J .- 



<058> 

•• : 1 1 > 

<057> 
<224> 

< 070 > 
<066> 
<076> 

< 07 > 
<082> 

< 1 2 > 
<251> 
<082> 
<230> 

< 1 1 8 > 
<044> 
<251> 
<037> 

< 1 39 > 

< 1 1 > 
<040> 

<154> 

<102> 

< 1 1 1 > 

<061> 
<104> 

: -. 1 1 <b .••"' 

< 1 1 > 

<168> 

< 1 1 9 > 

< 1 8 > 

<071> 

<071> 
<069> 
<124> 

<063> 

<183> 

<080> 
<038> 

<127> 
<092> 
<086> 

< 1 1 > 
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742 
744 
746 
748 
750 
752 
754 
756 
75S 
760 
762 
764 
766 
768 
770 
772 
774 
776 
778 
780 
782 
784 
786 
788 
790 
792 
794 
I 796 
798 
800 
802 
804 
806 
808 
810 
812 
814 
816 
818 
820 
822 
824 
826 
828 
830 
832 
834 
836 
838 
840 
842 
844 
846 
848 
850 
852 
854 
856 

f*l CT *~* 

fcSDW 

860 

862 
864 



866 
868 
870 
872 
874 
876 



DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



106,141 ,0 
1 , 169,37, 141 
1 , 1 ,173,60 
3, 141,93,3 
173,76,3, 141 
81 ,3, 173,77 
3, 141,88,3 
169,0, 141 
79,3,141 ,80 

T "TO CA 7A 

40, 176,7, 162 
3, 160,5,32 
103,36,40 
176,5,169 
255, 141 ,78 
3,76,39,37 
169, 133, 141 
0,1, 169,37 
141 ,1,1, 173 
61 ,3,141 ,93 
3,40, 176,5 
169,255, 141 
78,3, 173,77 
3, 141,81 ,3 
173,76,3,141 
88,3,169,0 
141 ,79,3, 141 
80 , 3 , 32 , 
36 , 40 , 1 76 
7,162,3, 160 
5,32, 103,36 
173,76,3,141 
94 , 3 , 76 , 95 

57 . 173.77 
3, 141 ,94,3 
108,0,1 ,206 
94,3,208,248 
76, 160,37 

24. 173.78 
3,109,61,3 
141 ,61,3,32 
119,36,32 
148,36,141 
60 ,3,40,8 

76,98,37,24 
173,78,3, 109 
60,3, 141 ,60 
3,32,119,36 
32 ,148, 36 
141 ,61,3,40 
8,32,202,32 
76,98,37, 173 
89,3, 141 ,60 
3, 173,90,3 
141 ,61,3,40 

96,32,117 



.*—. T « 



zoo , / 1> , ±:^<+ 
199,234,234 

234,0,32, 104 

177,37,80 
34, 160,34 
2,38, 18,38 
34 , 38 , 50 , 38 
40,32,32, 121 
0,201 ,40,240 



<032> 

< 1 9 4 > 
<086> 
<093> 
<200> 
<158> 
<103> 
<055> 

< 1 60 > 
<050> 

< 2 1 3 > 

< 1 05 > 
<060> 
<081> 
<129> 
<137> 
<177> 
<125> 
<167> 
<178> 

< 1 30 > 
<192> 

< 1 99 > 

<131> 
<241> 

< 1 49 > 
<243> 



<086> 
<103> 

< 1 64 > 

< 1 95 > 
<255> 

< 1 7 1 > 
<121> 
<157> 
<200> 

< 1 6 > 
<124> 

<12B> 

< 1 65 > 

< 2 1 3 > 

<127> 

< 1 80 > 
<123> 

< 1 22 > 
<248> 
<035> 

.* /*} /~> -y % 

<236> 

<145> 
<232> 

< 236 > 

<059> 

< 250 > 
<198> 

< 242 > 
<146> 
<163> 

< 2 1 4 > 

< 1 5 > 

<043> 

< 1 65 > 
<177> 
<167> 



..- /•* ^ en- •.. 



<020> 
<054> 
< 05 1 > 



878 

880 

poo 

884 
886 
888 
890 

w 7 xL 

894 
896 
898 
900 
902 
904 
906 
908 
910 
912 
914 
916 
918 
920 
922 
924 
926 
928 
930 
932 
934 
936 
938 
940 
942 
944 
946 
948 
950 
952 
954 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
1000 FOR 
: POKE 



7,201,44,240 
3,76,39,35 
32, 155,215 
201 ,41 ,208 



3 



,32,115,0 

1 7Q QjL '71 

208,37,72 
201 ,168, 176 
10,32,208 
37 , 20 1 , 1 76 
176,3, 168 
104,96, 104 
162,14,76 
55,196,32 
234,37, 141 
60,3, 140,61 
3 , 56 , 32 , 202 
32,76, 174 

199 "*0 y*£l 

37, 141 ,60 
3, 140,61 ,3 
24,32,202 
32,76, 174 
199,32,234 
37, 141 ,89 
3, 140,90,3 
56,32, 161 
36,76, 174 



<064> 
<238> 

-. *C. ■£• CJ .• 

v' r> o t v 



< 1 98 > 
<197> 
<042> 
<188> 
<249> 
<208> 



199,32,234 
37, 141 ,89 
3, 140,90,3 
24,32,161 
36,76, 174 
199,32,91 



<207> 
<213> 

< 1 > 
<043> 
<047> 
<220> 
<017> 

< 2 1 6 > 
<002> 

< 2 1 3 > 
<230> 
<027> 
<237> 

< 1 4 > 
<232> 
<244> 
<037> 
<247> 
<024> 
<237> 

,CE 4> 



nn 



?28,76,229 



OCT / 

7JO 



34,234,234 
40,67,41 ,66 

89,32,74,46 ' < 

83,39,56,52 < 

234,234,234 < 

1=8192 TO 9816 s READ DC 
I ,DC:S=S+DC:NEXT I < 
1010 IF SO 1594 13 THEN PR I NT "DATA 

CtSPACE JFEHLER " : END < 

1 040 PR I NT " BERE I T C SPACE ] Z UM C SPACE 1 

ABSAVENCSPACE3?" 
1045 GET A^sIF A^O-J" THEN 1045 
1050 POKE 43,255: POKE 44,31: POKE 
: POKE 46 , 38 s S A VE " M I N I C SPACE 1 
GBASIC" ,1,1 



<000> 

<054> 
<043> 
<098> 
<109> 

< 1 09 > 

< 1 1 > 

< 1 4 8 > 
<124> 



<231> 
<172> 
45.90 



y *~* 



240 > 
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Delete 




Diese in Maschinensprache geschrie- 
bene Routine ermoglicht es, Basic- 
Programmzeilen in einem vorzuge- 

Zeilennummernbereich zu 



benden 
loschen. 



Ein argerlicher Nachteil ded C 64-Basic und auch von 
Simons-Basic ist das Fehlen einer Delete-Routine zum schnel- 
len Loschen mehrerer Programmzeilen. Das folgende Pro- 
gramm hilft dem ab. 

Der Basic-Lader speichert das Maschinenprogramm im Kas- 
settenpuffer ab Adresse 828 (dez.). Das Programm kann dann 
auf drei verschiedene Arten aufgerufen werden: 

— SYS828,ZN-ZN Bereich loschen 

— SYS 828, -ZN Bis Zeile alles loschen 

— SYS 828, ZN- Ab Zeile alles loschen 

Es werden jeweils die Zeilen inklusive der angegebenen ge- 
loscht. Da die Routine im Kassetten puffer untergebracht ist, 
belegt sie keinen Basic-Speicherplatz. 

(Hans-Herbert Hagedorn / ev) 



10 

15 
20 



30 
35 
40 
45 
50 
55 
60 
65 
70 
75 
80 
85 
90 



REM 
REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 



**--*-**•****■*-*****#****** 



* 
* 

* 
* 

* 



DELETE 



H.H. HAGEDORN 



RUPPRECHTSTR.30 
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TEL- 0871/67337 



* 
* 
* 
* 
* 

* 
* 

* 
* 

* 



**********#*-**•*»***♦♦* 



READ A : POKE I, A 



FOR 1=828 TO 990 : 
S=S+A : NEXT 

IF S <> 17132 THEN PRINT "DATENFEHLER" 

<250> 
PRINT "OK" 

DATA 032,253,174,032,121,000,144,006 
DATA 240,004,201,171,208,023,032,107 
DATA 169,032,019,166,165,095,133,025 
DATA 165,096,133,026,032,121,000,240 
DATA 004,201,171,240,005,162,011,076 
DATA 058,164,032,115,000,032,107,169 
DATA 208 , 243 ,165, 020 , 005 , 02 1 , 208 , 008 

DATA 169,255,133,020,133,021,208,006 
DATA 230,020,208,002,230,021,032,019 
DATA 166,165,095,133,036,165,096,133 
DATA 037 , 056 , 1 65 , 036 , 229 , 025 , 1 65 , 037 

DATA 229,026,144,201,165,045,229,036 

DATA 133,095,165,046,229,037,133,096 

DATA 024,165,025,101,095,133,045,165 

DATA 026,101,096,133,046,160,000,177 

175 DATA 036,145,025,230,025,208,002,230 

180 DATA 026,230,036,208,002,230,037,056 

DATA 165,095,233,001,133,095,165,096 

DATA 233,000,133,096,016,225,032,089 

DATA 166,032,051,165,076,145,227,000 
DATA 000,000,000 



95 

100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 



1 

190 
195 
200 



<053> 
<242> 
<170> 
<252> 
<053> 
<006> 
<082> 
<016> 
<227> 
<026> 
<059> 
<036> 
<113> 
<133> 
<061> 
<084> 
: END 

<214> 

<206> 

<210> 

<249> 

<227> 

<226> 

<245> 

<244> 

<253> 

<237> 

<033> 

<033> 

<030> 

<047> 

<033> 

< 033 > 

<029> 

<039> 

<067> 

<057> 

<064> 

<083> 



Commodore 




erweitert 

Mit dem hier vorgestellten Maschinen- 




programm wird der Basic-Befehlssatz 



des VC 20 Oder des C 64 urn sechs Be- 
fehle erweitert. 

■ 

Die 6 Befehle lauten, in die Basic-Schreibweise ubersetzt, 
GOTO N, GOSUB N, RESTORE N, READ D,A, READ N,D,A, 
und POP Einen kleinen Nachteil muB man dabei allerdings in 
Kauf nehmen, denn diese Routinen kann man nur dem SYS- 
Befehl ansprechen. Es ist also nicht moglich, eine der Routi- 
nen direkt mit einem Basic-Befehlswort aufzurufen. 

Der Zugriff auf diese Befehle kann insbesondere dann von 
groBem Nutzen sein, wenn man Programme von anderen 
Computern umschreiben will, die diese Befehle benutzen. 

Will man einen der neuen Befehle in einem Basic-Programm 
benutzen, muB man nur das Basic-Wort in der oben aufgefuhr- 
ten Liste durch ein »SYS (Adresse)« ersetzen. Die Parameter 
hinter dem Befehl werden genauso hinter den SYS-Befehl ge- 
schrieben, als ob sie hinter dem Basic-Befehl stehen wurden. 

Bei den nun folgenden Erlauterungen wird davon ausgegan- 
gen, daB sich das Maschinenprogramm im Kassettenpufferab 
Adresse 828 befindet. Wurde eine andere Anfangsadresse 
gewahlt, andern sich auch die Adressen der einzelnen 
Routinen. 

Der Befehl GOTO N sieht in der Form, wie er im Programm 
verwendet werden muB, so aus: SYS(828)N; also doch noch 
recht einfach. Dieser Befehl bewirkt, daB man direkt zu einer 
beliebigen Zeile springen kann, deren Zeilenummer »N« vorher 
berechnet wurde. Nun zur Syntax. Bei diesem, wie auch bei al- 
ien folgenden Befehlen ist darauf zu achten, daB die Start- 
adresse der Routine nach dem SYS-Befehl, (hier 828) in Klam- 
mern steht, um Sie von der darauf folgenden Parameterliste zu 
trennen und so als Adresse kenntlich zu machen. »N« repra- 
sentiert hier, wie auch bei den weiter folgenden Befehlen, eine 
beliebige gultige numerische Variable, eine Zahl oder einen nu- 
merischen Ausdruck. Fur »N« ist also beispielsweise auch der 
Ausdruck»INT(RND(1)*20)*10+100«erlaubt. DerAusdruck 
muB nur einen Ganzzahlenwert zum Ergebnis haben. Noch zu 
bemerken ist, daB zwischen der geschlossenen Klammer der 
Adresse und der ersten Variableh oder dem Ausdruck kein 
Komma stehen dart Das Komma wirkt wie bei PRINT oder RE- 
AD wie ein Trennzeichen. Da dieser Befehl aber nur eine Varia- 
ble oder einen Ausdruck enthalten darf, wurde das zu einem 
»SYNTAX ERROR« fuhren. Dies gilt auch bei alien folgenden 
Befehlen. Ist die.berechnete Zeilennummer nicht im Programm 
enthalten, erfol^t die Fehlermeldung »UNDEF'D STATEMENT 
ERROR«. 

Fur den Befehl GOSUB N gilt das gleiche, was auch zu GOTO 
N gesagt wurde, unter Berucksichtigung der Tatsache, daB es 
sich hier um einen Unterprogramm-Aufruf handelt. Mit diesem 
Befehl kann man also zu einer vorher berechneten 
Unterprogramm-Adresse springen (SYS(834) N). 

RESTORE N ermoglicht es, den DATA-Zeiger auf eine be- 
stimmte Zeile zu setzen. SYS(866)100 beispielsweise setzt 
den DATA-Zeiger auf das erste Datum der Zeile 1 00. Mit einem 
anschlieBenden READ-Befehl kann man dann gezielt auf die- 
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sen Datensatzzugreifen. IstdieangegebeneZeilennummer im 
Programm nicht vorhanden, erfolgt ein »UNDEFD STATE- 
MENT ERROR«. 

READ D, A (SYS(890) d, a) liest direkt den D-ten DATA-Wert 
in die Variable A. Anstelle von »A« kann sowohl eine numeri- 
sche als auch eine Stringvariable stehen. »SYS(890) 5, A$« 
entspricht beispielsweise der Basic-BefehJsfolge »FOR I = 
1 TO 5 : READ A$ : NEXT«. Auf etwas ist noch zu achten: Will 
man numerische Daten mit einer numerischen Variable lesen, 
darf keiner der vorhergehenden DATA-Werte ein String sein. 
Dies ist programmtechnisch bedingt und liegt daran, daB in 
Wirklichkeit die entsprechende Anzahl von READ-Befehlen 
durchgefuhrt wird. Ein direktes Lesen nur des gesuchten Da- 
tums wurde das Maschinen-Programm dreimal so lang ma- 
chen. Sollte es doch einmal vorkommen, daB man versucht, in 
eine numerische Variable einen String einzulesen, wird ein 
»SYNTAX ERROR« mit Angabe der entsprechenden DATA- 
Zeile ausgegeben. Am besten benutzt man immer Stringvaria- 
ble zum Lesen. 

Dann ware da noch der Befehl »READ N,D,A« (entspricht 
SYS(927)N,D,A). Dieser Befehl ist eine Mischung des 
RESTORE- und des READ-Befehls. 

SYS(927)N,D,A liest aus der Zeile N das D-te Datum dieser 
Zeile in die Variable »A«. Ist D grofter als die Anzahl der Daten in 
dieser Zeile, wird in der nachsten DATA-Zeile weitergelesen. 

Nun noch zu »POP« (SYS(937)). Springt man aus einem Un- 
terprogramm anstatt mit »RETURN« mit einem direkten 
Sprungbefehl in die nachsthohere Ebene (zum Beispiel ins 
Hauptprogramm) zuruck, dann kann mit SYS(937) die letzte 

gespeicherte Rucksprungadresse im Stack, die dann nicht 
mehrgebrauchtwird, geloscht werden. Damitwird verhindert, 
daB der Stack uberlauft, da er maximal 23 Rucksprungadres- 
sen speichem kann. AuBerdem wird ein korrekter Programm- 
ablauf sichergestellt, wenn man »hart« aus einem Unterpro- 
gramm herausspringt, beispielsweise, urn in eine Fehlerbe- 
handlungsroutine zu gehen. 



Tips fur die Eingabe 



Als erstes sollte man nur den Basic-Lader (Listing 1 oder 2, 
je nach Computer) ab Zeile 10000 eintippen und dann, ohne 
ihn zu starten, sicherheitshalber erst mal abspeichem. Dann 
gibt man noch eine Testzeile ein, und zwar: »10 GOSUB 
10000:PRINT'Prufsumme=";AS:END« und startet das Ganze 
mit »RUN«. Ergibt sich fur die Prufsumme ein anderer Wert als 
18413 fur den VC 20 oder 1 7 901 fur den C64, dann hat man 
sich irgendwo vertippt und die Datazeilen sind mit dem abge- 
druckten Listing noch einmal zu vergleichen. Eine genaue 
Kontrolle sollte man sowieso vomehmen, da sich durch Zufall 
eine richtige Prufsumme ergeben kann, obwohl vielleicht zwei 
Werte falsch sind, die sich aber gegeneinander aufheben. 

Sind alle Datazeilen fehlerfrei, loscht man Zeile 10 und spei- 
chert das Programm noch einmal ab, damit man den Basic- 
Lader an jedes gewunschte Programm anhangen kann. 

Ist dies geschehen, kann man das Umrechnungsprogramm 
(Listing 3) eingeben. Es dient dazu, das Maschinenprogramm 
aus dem Kassettenpuffer an eine andere Stelle im Speicher zu 
verschieben. Der Kassettenpuffer hat ja den Nachteil, daB das 
Maschinenprogramm bei jeder Kassettenoperation zerstort 
wird. AuBerdem konnen auch andere Befehlserweiterungen 
diesen Bereich benutzen, urn Werte zwischenzuspeichern. 
Dadurch wurde dann das Maschinenprogramm auch zerstort. 
Werden in einem Programm, das den Basic-Lader enthalt, 
noch weitere DATA-Zeilen verwendet, so ist sicherzustellen, 
daB deren Zeilennummern groBer sind als die hochste Zeilen- 
nummer des Basic-Laders, da sonst falsche Werte eingelesen 
wurden. 



Und noch ein Tip. Urn die Adressen der Befehle nicht andern 
zu miissen, wenn man das Maschinenprogramm in einen 
anderen Speicherbereich verlegt, verwendet man am besten 
Variablen, denen man am Anfang des Programms die Adresse 
zuweist. Dies konnte zum Beispiel so aussehen: 
»SM%=828«.Fur die einzelnen Befehle wurde dann folgen- 
des gelten: 

GOTON = SYS(SM%) 

GOSUB N = SYS(SM% + 6) 

RESTORE N = SYS(SM% + 38) 

READD,A = SYS(SM% + 62) 

READN,D,A = SYS(SM% + 99) 

POP = SYS(SM% + 109) 

Da alle diese Routinen weitgehend in das Betriebssystem 
des Computers eingebunden sind, werden bei Fehlern in der 
Ausfuhrung die entsprechenden Systemfehlermeldungen 
ausgegeben. 

(Wolfgang Thauer / ev) 



i 

"1 



5 
6 

/ 



REM BASIC-LADER VC 20 

REM 

REN WOLFGANG THAUER 

REN AM SCHIEDSBERG 45 

REN 5205 ST. AUGUST IN 2 

REN 
REN 



<130> 
<145> 

< 1 76 > 

<173> 

•:•' 9 1 S •:■ 

< 1 49 > 

< 1 50 > 



10(300 AS=0:FOR I=828+AB TO (828+144) +AB: READ AP 

sPOKE I,APsAS»AS+APsNEXT I : RETURN <126> 
10005 DATA 32 <036> 

10010 DATA 198,3: REM** <226> 

10020 DATA 76,163,200,169,3,32,251,195,165,123, 

72 , 1 65 , 122 , 72 , 1 65 , 58 , 72 <061 > 

10030 DATA 165,57,72,169,141,72,32,121,0,32 

<002> 
10040 DATA 198,3: REM** <000> 

10050 DATA 32,163,200,76,174,199,32 <150> 

10060 DATA 198,3: REM** ' <020> 

10070 DATA 32,19,198,176,3,76,227,200,165,95, 

233, 1 , 133,65, 165,96,233,0,133,66,96,32 <247> 
10080 DATA 29,200,32 <196> 

10090 DATA 198, 3: REM** <050> 

10100 DATA 165,20, 133,253, 166;21 ,232, 134,254,32, 

253,206,32,6,204 <071> 

10110 DATA 198,253,240,11,32,28,204,198,253,208, 

249 , 1 98 , 254 , 208 , 245 , 96 , 32 
10120 DATA 98,3 : REM** 
10130 DATA 32,253,206,32 
10140 DATA 125,3s REM** 
10150 DATA 96,169,255,133,74,32 
10170 DATA 192,3: REM** 
10180 DATA 154,201,141,240,3,76,224,200,104 

<134> 
10190 DATA 104,104,104,104,76,243,200,186,232, 

232 , 76 , 1 39 , 1 95 , 32 , 1 38 , 205 , 32 , 247 , 2 1 5 , 96 < 1 96 > 

Listing 1. Basic-Lader »6 neue Befehle« (VC 20-Version) 



<060> 
<031 > 

<188> 

<090> 

<062> 
<124> 



1 REN BASIC LADER C 64 

2 REN 



WOLFGANG THAUER 
4 REN AM SCHIEDSBERG 45 
REN 5205 ST.AUGUSTIN 



5 
6 



r> 



REN 
REN 



<007> 
<145> 
<176> 
<173> 
< 2 1 5 > 
<149> 

<150> 



10000 AS=0sFOR 1*828 TO (828+144) +AB: READ AP 



<081 > 
<036> 
<226> 



: POKE J. , AP: AS-AS+AP: NEXT I : RETURN 
10005 DATA 32 
10010 DATA 1 98, 3: REM** 
10020 DATA 76,163,168,169,3,32,251,163,165,123, 

72, 165, 122,72, 165,58,72 <069> 

10030 DATA 165,57,72,169,141,72,32,121,0,32 

<002> 
10040 DATA 198,3: REM** <000> 

10050 DATA 32,163,168,76,174,167,32 <158> 
10060 DATA 198,3: REM** <020> 

1 0070 DATA 32 ,19,1 66 , 1 76 , 3 , 76 , 227 , 1 68 ,165,95, 

233., 1 , 133,65, 165,96,233,0, 133,66,96,32 <255> 



100S0 DATA 29,168,32 <209> 

10090 DATA 198,3: REM** <050> 

10100 DATA 165,20,133,253,166,21,232,134,254,32, 
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253,174,32,6,172 <079 

10110 DATA 198, 253, 240,11, 32, 28, 172, 198,253,208 

249 , 1 98 , 254 , 208 , 245 , 96 , 32 < 064 

10120 DATA 98, 3: REM** <031 

10130 DATA 32,253,174,32 <192 

10140 DATA 125,3: REM** <090 

10150 DATA 96,169,255,133,74,32 <062 

10160 DATA 192,3:REM** <114 

10170 DATA 154,201,141,240,3,76,224,168,104. 

< 1 37 > 
10180 DATA 104,104,104,104,76,248,168,186,232, 

232,76,139,1 63 ,32,138, 1 73 , 32 , 247 , 1 83 , 96 < 202 



Listing 2. BasioLader »6 neue Befehle« (C 64-Version) 



i 



-«■ 
/i 

5 



6 

10 

20 

30 
40 



50 



60 

70 

S0 

90 

100 

110 

120 

130 



REM 
REM 

REM 

REM 

REM 

REM 



ADRESSEN UMRECHNEN 

WOLFGANG THAUER 
AM SCHIEDSBERG 45 
5205 ST. AUGUST IN 2 



REM 



M13 



MACHINENPROGRAMM 1ST 145 BYTES 

<086> 



REM 
REM 
REM 
REM 
REM 



ZEICHERERKLAERUNG 
CHR$<147)-: CLEAR HOME 
CHR*<17) - CURSOR DOWN 
CHR£<18) = REVERSE ON 
CHR*<13> - RETURN 



<138 


<145 


< 1 76 


< 1 73 


< 2 1 5 


< 1 49 


<068 


LANG 


<033 


<177 


< 1 24 


< 2 1 6 


<134 


< 1 78 


< 1 48 


< 1 58 


< 1 68 


<197 



PRINT CHR*(147> 

PR I NT " D I ESES C SPACE 3PRQGRAMM CSPACE 3RECHNET 
CSPACE 3DIE CSPACE 3ABSOLUTEN CSPACE 3 ADRESSEN 
CSPACE 3 IN CSPACE 3DER CSPACE 3MASCH I NENROU"; 

< 1 5 1 > 

135 PR I NT"TINE CSPACE 3FUER CSPACE 3EINEN CSPACE 3 

ANDERENCSPACE3SPEICHERBEREICHC5PACE3UMCSPACE 
UND CSPACE 3POKET CSPACE JES " ; <086 

140 PRINT"LAUFFAEHIGCSPACE3INCSPACE3DIESEN 

C3PACE3SPEICHERBEREICH. " <247 

150 PRINT CHR*(17) ; "GEBE CSPACE 3DIE CSPACE 3 

GEWUENSCHTE CSPACE2 3 ANFANGSADRESSE CSPACE IE I N , 
AB" <229 

1 60 PR I NT " DER CSPACE 3DAS CSPACE 3MASCH I NENPRO- 

CSPACE 3GRAMM CSPACE 3 IM CSPACE 3SPE I CHER CSPACE5 3 
LIEGENCSPACE3SOLL- " <093 

170 PRINT CHR*(17) ; " (DIE CSPACE 3NORMALE CSPACE 3 
ADRESSE CSPACE3 3 I ST CSPACE 3828 CSPACE 3= CSPACE 3 
KASSETTEN-CSPACE2 3PUFFER) . " <030 

180 PRINT CHR* < 17) : INPUT A A <014 

190 PRINT CHR#<17) ; "DIECSPACE 3ANFANGSADRESSE 

CSPACE4 3 I ST CSPACE 3 " ; AA < 2 1 8 

200 PRINT CHR$<17) ; "I ST CSPACE 3DAS CSPACE 3R I CHTIG 



3 






nn 



CSPACE 3?" 
210 INPUT" <J/N) ";A* 
20 IF A$<>"J"AND A*<>"N"THEN 210 
IF A*="N"THEN PRINT: GOTO 150 
AB=AA~828 

PRINT CHR*( 147) ; "BITTE CSPACE 3WARTEN" 
GOSUB 700 

IF AA-828 THEN 490 



230 
240 
245 
250 
260 



270 



< 1 1 3 
<083 

< 002 
<179 
<244 

< 1 
<030 
<170 
<073 



r-\ 



•*"> 



80 REM ANGABE DER ZU AENDERNDEN DATAZEILEN 

<133> 



290 REM DIESE DATAZEILEN SIND IM LISTING DURCH 
EIN ANGEHAENGTES ' : REM** ' GEKENNZEICHNET 

<105> 
300 : <103 

310 PRINT CHR*(17) ; "DIE CSPACE 3ZU CSPACE 3 

AENDERNDEN CSPACE 3DATAZE I LEN CSPACE 3M IT CSPACE 3 



320 
330 
340 

350 
360 



370 



DEN CSPACE 3ENT- CSPACE3 3SPRECHENDEN CSPACE 
NEUEN" 

PR I NT " WERTEN CSPACE 3LAUTEN: " 

PRINT 

AD^AA+138: GOSUB 630 

PR I NT " 1 00 1 C SPACE 3DATA " ; AL ; 

PR I NT" 1 0040 C SPACE 3DATA " ; AL ; 

PR INT" 10060 CSPACE 3DATA" ; AL; 



3 



1 1 



ii 



II 



n 



«ow r Kj.NI i 009 i.. SPACE juh i h ' ; hl $ 
390 AD-AA-i-38: GOSUB 630 
400 PR r NT" 101 20 C SPACE 3D AT A " ; AL ; 



M 



II 



AH 
AH 
AH 
AH 



AH 



< 


132 


..-• 

•_ 


246 


< 


223 


• 


180 


-••' 

•, 


127 


• 


140 


*« 


152 


< 


J / r— • 


< 


181 


•'; 


179 



Basic erweitert 



<201> 


< 20 1 > 


< 008 > 


<224> 


< 111 > 


<052> 



410 ad=aa+65: gosub 630 

420 print" 10140 cspace 3data"; al; " , " ; ah 

430 ad=aa+ 132: gosub 630 

440 print" 10170cspace3data" ;al; " , " ; ah 

450 print chr*<17> ; "weitercspace3mit cspace 3 

< return >" 
460 get a*: if a*=" "then 460 

470 IF ft$OCHR* C 1 3 ) THEN 460 <232> 

480 : <027> 

490 F'RINT <132> 

500 PR I NT " D I E CSPACE 3STARTADRESSEN CSPACE 3 DER 

CSPACE3ROUTINENCSPACE3LAUTEN: " <217> 

510 PRINT CHR*<17) ; "GOTO CSPACE 3N CSPACE2 3= CSPACE 3 

SYS ( " ; AA; " ) " ; CHR* (17) < 162> 

520 PRINT"GOSUBCSPACE3NCSPACE3^CSPACE3SYS<"; 

AA+6; ") ";CHR*<17) 
530 PRINT"RESTORECSPACE3N=SYS(" ; AA+38; ") "; 

GHR*<17) 

540 PRINT "RESTORE CSPACE 3D, A*" 

: PRINT" CSPACE8 3= CSPACE 3SYS(";AA-i-62:; ") "5 

CHR*(17) 
550 PRINT "RESTORE CSPACE 3N , D , A* " 

.-PRINT" CSPACE8 3- CSPACE 3SYS < " ; AA+-99; " ) " ; 

CHR*U7) 

560 PRINT "POP CSPACE5 3- CSPACE 3SYS ( " ; AA+109; " ) " 

<011> 



< 02 c 



D.- : ' 



252 > 



1 6 1 > 



<047> 



570 END 
580 : 
590 ": 



600 REM SUBROUTINE 



< 1 88 > 

<128> 

< 1 38 > 
<249> 



610 REM BERECHNUNG VON LOW- UND HIGH-BYTE EINER 



ADRESSE 
620 : 

630 AH= I NT (AD/256) s AL=AD~AH*256: RETURN 
640 : 
650 : 
670 REM SUBROUTINE 



<200> 
<168> 
<203> 
< 1 88 > 
<198> 
<063> 



680 REM MASCHINENPROGRAMM WIRD IN SPEICHER GEPO 



KET 
690 : 
700 GOSUB 10000 



<099> 
<238> 
<060> 



710 IF AS-18413 THEN PRINT CHR* ( 17) ; "PRUEFSUMME 



■:.u 



> 



< 20 



CSPACE 3KORREKT. " : RETURN 
712 REM 18413 = PRUEFSUMME FUER VC 20 «..jlws 
714 REM FUER C 64 1ST DIE PRUEFSUMME 17901 <007> 
720 PRINT CHR* < 147) 5 "PRUEFSUMME CSPACE 3= "; AS 

<179> 
730 PRINT CHR* (17) 5 " PRUEFSUMMENFEHLER CSPACE 3 ! " 

<162> 
740 PRINT <127> 

750 PR I NT " MOEGL I CHE C SPACE 3FEHLER- C SPACES 3 

QUELLEN CSPACE 3: " <141> 

760 PRINT <147> 

770 PR I NT "*EIME CSPACE 3DATE CSPACE 3WURDE CSPACE 3 
VER~ CSPACE2 3GESSEN CSPACE 30DER CSPACE 3FALSCH 
CSPACE4 3EINGE--TIPPT . " <224> 

780 PRINT <168> 

790 PRINT"*SIECSPACE3HABENCSPACE3DIECSPACE23 
DATA- CSPACE2 3 ZE I LEN CSPACE 3GEAENDERT , CSPACE 3 
UMCSPACE23DASCSPACE3MASCHINENPROGRAMM"!! <170> 
800 PRINT" CSPACE JAN CSPACE 3EINEN CSPACE 3ANDEREN 
CSPACE6 3SPEICHERBEREICH CSPACE 3ANZU- CSPACE 3 
PA3SEN. " <131> 

810 PRINT"*SIE CSPACE 3HABEN CSPACE 3DIE CSPACE 3 
FALSCHE CSPACE 3PRUEFSUMME CSPACE 3 IN CSPACE 3 
ZEILE [SPACES 37 10 CSPACE HE I NGESETZT. " <028> 
320 END <183> 

830 : <123> 

960 : < 253 > 

970 REM UNTERPROGRAMM <079> 

980 REM BASICLADER <043> 

990 : <027> 

10000 AS=0:FOR I=82S-f-AB TO (828+144) +AB: READ AP 
:POKE I , AP: AS=AS+AP: NEXT I : RETURN <126> 

10005 DATA 32 <036> 

10010 DATA 198, 3: REM** <226> 

10020 DATA 76,163,200,169,3,32,251,195,165,123, 
72, 165,122,72, 165,58,72 <061> 

10030 DATA 165,57,72,169,141,72,32,121,0,32 

<002> 

10040 DATA 198, 3: REM** 

10050 DATA 32,163,200,76,174,199,32 

10060 DATA 198, 3s REM** 

10070 DATA 32,19,198,176,3,76,227,200,165,95, 
233, 1 , 133,65, 165 ,96 , 233 ,0 , 133 , 66 , 96 , 32 <247 

10080 DATA 29,200,32 <196 



<000 
< 1 50 
<020 



33ta? 
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■ 



liZ 

10100 



101 

101 
101 
101 
101 

1 :i. 

101 
101 



f Tt 



?0 DATA 193 ,3s REM** <B5W 

DATA 1 65 , 20 , 1 33 , 253 , 1 66 , 2 1 , 232 , 1 34 , 254 , 32 

10 DATA 198,253,240,11,32,28,204,198,253,208 
249 , ;L 9S , 254 , 208 , 245 ,96,32 ' < 060 

m DATA 98,3 s REM** <031 

■5 .»:- *J -.-' i { ■£, VeJ Q ^ v,' *U \ X Q Q 

125,3s REM** <090 

50 DATA 96,169,255,133,74,32 <062 

70 DATA 192,3s REM** <124 

80 DATA 154,201^,141,240,3,76,224,200,104 

<134> 
90 DATA 104, 104, 104, 104,76,248, 200, .1.86,232, 
232,76, 139, 195,32, 138,205,32,247,215,96 < 196 



30 DATA 32 



40 DATA 



Listing 3. Der Adressen-Umrechner 




Hardcopy im 
Superformat 

Hier ist endlich eine formatfullende 
Hardcopy-Routine fur den Commodore 
64 mit Epson-Drucker und Simons 
Basic 



Das Programm erzeugt eine vergroBerte Hardcopy vom Gra- 
fikbildschirm. Die in Simons Basic enthaltene Hardcopy nutzt ja 
leider nur das halbe Blatt aus, was in vielen Fallen sehr storend 
ist. Das Programm vergroBert den Ausdruck in X-und Y- 
Richtung, so daB eine halbe A4-Seite bedruckt wird. 

Es ist fur den Commodore 64 und Epson-Drucker mit VC- 

Interface gedacht, laBt sich aber auch an andere Nadeldrucker 

anpassen. 

(Peter Schwabe / ev) 



Ein Hardcopy-Beispiel (OriginalgroBe) 
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Hardcopy 















Auch selbsterstellte Grafiken sind schnell ausgedruckt 



11 

12 

13 REM **** 

14 REM **** 



REM ********************** 

REM **** *** 

HARDCDPY *** 

*** 

15 REM ********************** 

20 REM **** PETER SCHWABE *** 

30 REM **** IBBENBUEREN *** 

40 REM **** 12-09.1984 *** 

50 REM ********************** 



<054 
<193 
<028 
<195 
<058 
<070 
<244 
<219 
<093 



60 PR I NT " CCLEAR , D0WN4 , SPACE2 3HARDC0P Y CSPACE 3 

FUER CSPACE 3S I MON ' S CSPACE 3BAS IC < 1 88 

70 PRINT" CD0WN2,SPACE2 3D IE CSPACE 3COPY CSPACE 3 

WI RD CSPACE 3M I T CSPACE 3SYS CSPACE 332500 CSPACE 3 

GESTARTET <252 

80 PRINT" CDOWN2, SPACE2 3B I TTE CSPACE 3WARTEN, 

CSPACE 3PROSRAMM CSPACE 3WI RD CSPACE 3BELADEN 

< 045 > 
90 FOR K=32500 TO 32699 <131 

100 READ A: POKE K, A: S=S+A: NEXT <238 

320 DATA 169,126,162, 4,160, 1, 32,186,255, 

169, 0, 32 <075 

330 DATA 192,255,162,126, 32,201,255,169, 0, 

160,224,133 <070 

340 DATA 253,132,254,162, 50,169, 1,133,252, 

160, 2,185 <237 

350 DATA 177,127, 32,210,255,136, 16,247,160, 

5,185,171 <052 

360 DATA 127, 32,210,255,136, 16,247,169, 40, 

133, 21,169 <058 

370 DATA 128,133,151,169, 0,133, 20,160, 3, 



> 






X 
? 

"> 



> 



> 









N 



> 






> 



> 






169, 52,120 



< 208 > 



380 DATA 133, 1,177,253, 37,151,240, 10,165, 

20, 25,180 <219> 

390 DATA 127, 25,184,127,133, 20,136, 16,237, 

169, 55,133 <093> 

400 DATA 1, 88,165, 20, 32 <200> 

440 DATA 210,255, 32,210,255, 70,151,144,209, 

165,253,105 <225> 

450 DATA 7,133,253,144, 2,230,254,198, 21, 

208,191,165 <099> 

460 DATA 252,240, 22, 56,165,253,233, 60,133, 

253, 165,254 <206> 

470 DATA 233, 1,133,254,169, 0,133,252,202, 

208,152,240 <149> 

480 DATA 20, 56,165,253,233, 4,133,253,165, 

254,233, <071> 

490 DATA 133,254,169, 1,133,252,202,208,130, 

169, 13, 32 <176> 

500 DATA 210,255, 32,204,255,169,126, 76,195, 



^.^j^j 



,128 



< 208 > 



510 DATA 4, 42, 27, 13, 23, 51, 27,128, 32, 

8, 2, 64 <213> 

520 DATA 16, 4, 1,-1 <059> 

600 IF S <> 26274 THEN PRINT "FEHLERCSPACE3IN 

CSPACE 3DATAS CSPACE I ! ! ! " i END < 252 > 

610 PRINT" CDOWN3,SPACE2 3PRQGRAMM CSPACE 3 1ST 

CSPACE 3BERE IT CSPACE 3! ! ! M <231> 

620 POKE 56, 126: REM VOR UEBERSCHREIBEN SCHUETZEN 

<180> 



Listing »Super-Hardeopy« 




Zeichen-Editor 



C64 




Bei vielen Anwendungen ist es sinnvoll 
mit zwei verschiedenen Zeichensatzen 



zu arbeiten. Dieses Programm ermog- 
licht Ihnen, einen eigenen Zeichensatz 
zu erstellen, ohne den Original- 
Zeichensatz zu zerstoren. 

Programmiert man ein Videospiel, ein Textverarbeitungspro- 
gramm oder will man einfach nur die ublichen Bildschirmzei- 
chen etwas interessanter gestalten, bleibt einem nichts ande- 
res ubrig, als den normalen Zeichensatz aus dem ROM heraus- 
zuholen, ins RAM zu kopieren und dann in diesem kopierten 
Zeichensatz »herumzuPOKEn«. 

Diese Tatigkeit ist aber — ahnlich wie bei der Konstruktion 
von Sprites — immer wieder eine muhsame Rechnerei. Des- 
halb habe ich mit einen komfortablen Zeichen-Editor zusam- 
mengestellt, der jede Rechnerei abnimmt. Mit seiner Hilfe ist 
das Definieren eigener Grafik-Zeichen ein Kinderspiel. 

Nach dem Eintippen (und Abspeichem!) laBt man das Pro- 
gramm mit RUN starten. Nach einer kurzen Wartezeit, wahrend 
der GroBbuchstaben-Zeichensatz aus dem ROM ins RAM ko- 
piert wird (und zwar in die Speicherzellen 51200 bis 53248, 
der Bildschirm beginnt dann bei Adresse 50176), erscheint 
das Menu mit einem Zeichenfeld links unten. (Wen es interes- 
siert: das Maschinenprogramm, das den Zeichensatz ins RAM 
kopiert, beginnt bei der Adresse 828, also dem Anfang des 
Kassettenpuffers). 

In diesem Zeichenfeld kann man nun mit den Cursortasten 
herumwandem, Sternchen (*) malen und gegebenenfalls mit 
der Space-Taste wieder loschen. Ein Sternchen im Zeichen- 
feld bedeutet einfach, daB hier ein Bit gesetzt wird, das dann 
spater zur Berechnung des Zeichens dient. Jedes Graphik- 
Zeichen besteht ja aus 8 Bytes — und genau diese 8 Bytes 
stellt das Zeichenfeld symbolisch dar. 

Taste 1: Berechnung des selbsterstellten Zeichens 

Sobald man sein Zeichen gemalt hat, muB es berechnet wer- 
den. Hierfur ist im Menu der Programmpunkt 1 vorgesehen. 
Druckt man diese Taste, so wird gefragt: »Welche Taste?« Man 
druckt nun die Taste, der man das soeben erstellte Zeichen zu- 
ordnen mochte, und genau das Zeichen, das zu der gedriick- 
ten Taste gehort, wird nun durch das im Zeichenfeld definierte 
Zeichen ersetzt. 

Ein Beispiel: Fullt man das Zeichenfeld ganz mit Sternchen 
aus, laBt das Feld berechnen und druckt dann die Taste »A«, so 
wird uberall auf dem Bildschirm dort, wo eben noch ein »A« ge- 
standen hat, ein reverses Quadrat erscheinen. Nette Spiel- 
chen kann man zum Beispiel mit der Space-Taste machen: 
dann wird namlich uberall da, wo ein Space auf dem Bildschirm 
ist (und das sind ja ublicherweise eine ganze Menge), das 
eben definierte Zeichen gedruckt. Auf diese Weise kann man 
den Bildschirm etwas interessanter gestalten. 

Taste 2: 

Sobald das neue Zeichen berechnet und ausgedruckt ist, 
kann man wieder beliebig im Zeichenfeld herumhantieren. Will 
man jedoch ein ganz anderes Zeichen konstruieren, so druckt 
man einfach Taste 2, und f lugs ist das Zeichenfeld wieder »sau- 
ber« — das gerade definierte Zeichen wird dabei naturlich nicht 
geloscht. Zusatzlich zum reinen Konstruieren von Grafik- 
Zeichen gibt es jodoch auch noch andere Programm- 
funktionen: 



Taste 3: ROM-Zeichen auslesen 

Mit Hilfe dieses Programmpunktes kann man sich ein beliebi- 
ges Zeichen aus dem ROM-Zeichensatz herholen. Hierbei 
wird das gewunschte Zeichen in das Zeichenfeld hineingePO- 
KEt und die Daten dieses Zeichens rechts daneben ausgege- 
ben. Selbst wenn Sie also den Buchstaben »A« als ein reverses 
Quadrat definiert haben sollten, so erscheint — sofern Sie Ta- 
ste 3 und danach »A« drucken — auf dem Zeichenfeld das gu- 
te, alte »A« wieder (denn im ROM-Zeichensatz bleibt naturlich 
alles beim alten). 

Taste 4: Eigene Zeichen auslesen 

Naturlich konnen Sie nicht nur Zeichen aus dem ROM holen, 
sondern auch aus dem kopierten Zeichensatz, in dem Sie bis- 
her munter herummanipuliert haben. Sie haben zum Beispiel 
aus dem »0« ein Smiley-Gesicht gemacht und wollen er gerne 
in vergroBerte Form wiedersehen, urn etwa Korrekturen oder 
ahnliches vorzunehmen — bitte sehr! Drucken Sie die Taste 4, 
dann ein »0« und Ihr eigenes Zeichen steht im Zeichenfeld — 
samt den dazugehorigen Daten rechts nebenan. 

Taste 8: Restore 

Nun kann es vorkommen, daB Sie genug haben von Ihren ei- 
genen Zeichen. Eigentlich wollten Sie jetzt ganz gem wieder 
die alten, »normalen« Zeichen. anstelle der vielen Smiley- 
Gesichter und reversen Quadrate sehen. 

Wenn Sie Taste 8 drucken, wird einfach der ROM- 
Zeichensatz wieder ins RAM kopiert; und da dieser Teil in Ma- 
schinensprache geschrieben ist, geht das ziemlich schnell 
vonstatten. 

Will man ubrigens nur ein einziges Zeichen wieder in den Ur- 
sprungszustand versetzen, so geht man am besten so vor: 
Man holt sich das (alte) Zeichen aus dem ROM (mit Taste 3) 
und laBt es mit Taste 1 wieder in den neuen Zeichensatz hinein- 
kopieren. Mit dieser Methode kann man zum Beispiel auch ei- 
nen Art Geheimcode entwickeln: Man tauscht einfach die Zei- 
chen im ROM untereinander aus (statt eines A ein B, statt eines 
U ein X und so weiter). Nach einigem Umdefinieren bekommt 
man einen ganz eigenartigen Buchstabensalat auf dem 
Bildschirm. 

Taste 9: Bild zeichnen 

Nehmen wir an, Sie haben aus den etwas eintonigen Grafik- 
zeichen des C 64 interessantere Zeichen zusammengeba- 
stelt: Leitern, Mauerwerke, Treppen und ahnliches. Sie wurden 
aber ganz gerne sehen, wie diese Zeichen im Zusammenhang 
wirken; wie es etwa aussieht, wenn ein Leiterstuck unter dem 
anderen steht, daneben ein Mauerwerk und so weiter. Dazu 
drucken Sie Taste 9 und konnen jetzt mit Ihren selbsterstellten 
Zeichen den ganzen Bildschirm vollmalen. Wenn Sie wieder 
ins Menu zuruckwollen, drucken Sie einfach »Cursor Home« 
(steht auch auf dem Bildschirm). 

Ein Hinweis zu diesem Programmpunkt: Der Cursor ist beim 
Bildmalen aus Grunden der Programmiervereinfachung nicht 
immer sehr gut sichtbar, manchmal »legt« er sich sogar ab, 
wenn er schnell uber den Bildschirm bewegt wird. Das sollte 
Sie aber nicht weiter storen, schlieBlich ist diese Programm- 
funktion nur als Hilfe gedacht fur einen schnellen Uberblick. 

Tasten 6 und 7: Abspeichem und Laden 

Wenn Sie eigene Zeichen definiert haben, mochten Sie die- 
sen Zeichensatz vielleicht abspeichem, urn ihn spater noch 
einmal verwenden zu konnen. Drucken Sie einfach Taste 6 und 
geben einen Dateinamen ein — der kopierte Zeichensatz mit 
Ihren selbsterstellten Zeichen wird nun auf Diskette gespei- 
chert (nur der GroBbuchstaben-Zeichensatz). Er nimmt dabei 
genau 44 Blocke auf der Diskette ein. Mit Taste 7 konnen Sie 
schlieBlich einen abgespeicherten Zeichensatz wieder laden 
(der aktuelle Zeichensatz wird dabei uberschrieben). 
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Zeichen-Editor 



Sollten Sie einmal versehentlich 6 oder 7 gedruckt haben, 
so kommen Sie wieder ins Menu zuruck, wenn Sie »N« + »RE- 
TURN«eingeben! 

Taste 5: Daten eingeben 

Eine letzte Programmfunktion bietet die Eingabe von Daten, 
die ein Zeichen definieren. Dies ist eine Alternative zum Kon- 
struieren eines Zeichens im Zeichenfeld. Zu beachten ist, daB 
nur Zahlen von bis 255 eingegeben werden konnen (dies 
wird allerdings vom Programm sichergestellt; negative und 
Zahlen groBer als 255 werden vom Programm nichtangenom- 
men). Nach Eingabe des 8. Bytes erscheint dann die ubliche 
Frage »Welche Taste!« und nach Eingabe dieser Taste das be- 
kannte Sternchenbild auf dem Zeichenfeld. 

Die Erklarung der Taste (Programmende) erubrigt sich 
wohl. Zu erwahnen ist hierbei nur, daB der kopierte Zeichen- 
satz auch nach Beendigung des Programms weiterhin zur Bild- 
schirmgestaltung benutzt wird; auch der Bildschirm selbst sitzt 
weiterhin an der Adresse 50176 (und nicht wie ublich, bei 
1024). Wollen Sie also wieder einen ganz gewohnlichen Bild- 
schirm mit ganz gewohnlichen Grafik-Zeichen haben, so geht 
das am einfachsten nur durch Aus- und Anschalten des Com- 
puters (auch die Run/Stop- Restore-Taste wurde im Programm 
blockiert). 

Eine kleine Bemerkung am Rande zum eigenen Program- 
mieren: Sehr oft kommt es ja vor, daB man einen Satz von ei- 
nem Programm aus mitten in dem Bildschirm hineinschreiben 
will. Ublicherweise geht man so vor, daB man die Cursor- 
Steuerzeichen in die Print-Zeile so oft einf ugt, bis der gesuchte 
Platz gefunden ist. Fur Programmlistings ist das etwas unuber- 
sichtlich. Es gibtaber noch eine andere Methode, die ich in die- 
sem Programm benutzt habe (und zwar am Anfang fast jedes 
Programmpunktes): will man zum Beispiel einen Buqhstaben in 
die 14. Zeile, 5. Spalte schreiben, so gibt man zunachst 
POKE 214,13 
ein, danach ein PRINT-Kommando und dann PRINTTAB(4)»X«. 

In Adresse 214 steht namlich die Zeilenposition des Cur- 
sors. Urn diese richtig einzusetzen, muB man allerdings noch 
einen PRINT-Befehl nachschicken: Cursor in Zeile 13 + 
PRINT-Befehl ergibt dann Zeile 14! 

(Volker Buhn / gk) 



Programmablauf 
Zeile 
1-7 
10-30 



40-140 
300-460 



500-520 



1000-1530 



2000-8040 
2000-2120 



3000-3150 



Plan: 

Beschreibung 

Programmname und Adresse des Autors 

Einlesen und Aufruf der Maschinenroutine, 

die den Zeichensatz vom ROM ins RAM 

an die Adresse 51200 kopiert 

Menu und Zeichenfeld werden gezeichnet 

Abf rage der Tastatur: 

1 . Zeichnen im Zeichenfeld 

2. Aufruf der einzelnen Programm- 
funktionen 

Unterprogramm zum Printen des Zeichen- 

feldes 

Die einzelnen Unterprogramme zur Steue- 

rung des Cursors, der Space-Taste und 

des Sternchens, urn im Zeichenfeld ein 

Zeichen zu erzeugen. 

Einzelne Programmfunktionen: 

Berechnung eines erstellten Zeichens; Zu- 

ordnung dieses neuen Zeichens in den 

Zeichensatz; Printen der Daten des 

Zeichens 

Ausgabe eines Zeichens aus dem ROM- 
Zeichensatz; Printen der Daten dieses 

Zeichens 



4000-4150 



5000-5050 



Ausgabe eines Zeichens aus dem kopier- 
ten Zeichensatz, Printen der Daten dieses 
Zeichens 

Neuer Bildschirm zum Zeichen mit dem 
selbsterstellten Zeichensatz 
Die Zeile 5050 dient zur Cursor- 
Steuerung und Ausdrucken eines Zei- 
chens auf dem Bildschirm 
Abspeichem eines selbsterstellten Zei- 
chensatzes auf Diskette 
Laden eines Zeichensatzes von Diskette 
Eingabe von 8 Bytes zur Definition eines 
Zeichens 

In 8030 wird sichergestellt, daB keine Zahl 
groBer als 8 Bit ist 

10000-10040 POKEn des Maschinenprogramms nach 

828 

10100-10150 DATA-Zeilen des Maschinenprogramms (in 

Hexcodes) 



6000-6120 

7000-7120 
8000-8040 



2080 



3050 
3060-3070 



Wichtige Programmzeilen: 

Erstellung eines eigenen Zeichens: 
2050-2070 Hier werden die Bytes des selbsterstellten 

Zeichens aus dem Zeichenfeld gelesen, 
berechnet und in B(1) bis B(8) abgelegt. 
Die Bytes des Zeichens werden nun in die 
Stelle des Zeichensatzes gePOKEt, die 
der Benutzer durch die Tastenabfrage de- 
finiert hat. 
ROM-Zeichen: 
Verhindern von Interrupts 
Im ROM-Zeichensatz wird das vom Benut- 
zer festgelegte Zeichen in B(1) bis B(8) 
sowie C(1) bis C(8) abgelegt 
Zulassen von Interrupts 
Die Bytes B(1) bis B(8) werden in das Zei- 
chenfeld in Form von Stemchen (*) hinein 
gePOKEt 

Eigenes Zeichen holen: 

4060-4070 wie 3060-3070, nur daB im kopierten Zei 

chensatz gesucht wird 
wie 3090-3110 
Bild zeichnen: 

In den Adressen 209,210 und 211 steht 
die aktuelle Cursorposition. Dies verhin- 
dert, daB der Cursur auf den Bildschirm 
wie ein normales Zeichen gePRINTet wird. 



3080 
3090-3110 



4080-4100 



5050 



Liste der 

Z 

PU$ 
NO$ 
A- 

G$ 

B(1) bis 
C(1) bis 
G 
C 
N$ 

A$ 
HN,LN 

UK 



wichtigsten Variablen 

Position des anfanglichen Cursors im Zei- 
chenfeld (ist immer 50776) 
Strings, urn Punkte beziehungsweise Leer 
stellen zu PRINTen 

Variable, die die aktuelle Cursorposition im 
Zeichenfeld angibt 
Stringvariable zur Tastaturabfrage 

B(8) r Arrays, die die 8 Bytes eines Zeichens 

C(8) [ enthalten 

Bildschirmcode eines Zeichens 
Cursorposition beim Bildzeichnen 
Name einer einzulesenden beziehungs- 
weise abzuspeichernden Datei 
Hexcode aus den DATA-Zeilen 
Hi-Nibble beziehungsweise Lo-Nibble von 
A$ 

Schleifenvariable 
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C64 



■ 














■ 



cr. 



V 



1 

2 
3 
4 
5 
6 
7 



REM 

REM * ZEICHEN-EDITOR/C64 

REM * VON 

REM * 



VOLKER BUEHN 
,14 



REM 
REM 

REM 



* 



AM 



6800 MANNHEIM 
6.7. 1784 



V 

* 
* 
* 



<12B> 
<187> 

<030> 



<06?> 
<132> 



<003> 
<022> 
<134> 

10 PRINT ,, CCLEAR3":PRINT:PRINT" CSPACE23BITTE 
CSPACE 3WARTEN ! " : RESTORE : POKE 657 , 1 28 
:POKE 792 ,134: POKE 793,234 <062> 

20 GOSUB 10000: REM EINLESEN DER 

M ASCH I NENROUT I NE 

30 SYS 828 :REM AUFRUF DERSELBEN 

40 POKE 53280,0: POKE 53281,0 

: PR I NT " C CLEAR , SPACEB , RVSON 3SELBSTERSTELLTE 
CSPACE 3ZEICHENCRVOFF 3" <034> 

50 PRINT:PRINT"1CSPACE3ZEICHENCSPACE3BERECHNEN 

CSPACE 26 CSPACE 3 ABSPE I CHERN " < 253 > 

60 PRINT"2CSPACE3NEUESCSPACE3ZEICHENCSPACE537 

CSPACE 3LADEN" <108> 

70 PRINT"3CSPACE3ROM-ZEICHENCSPACE7 3BCSPACE3 

RESTORE" <211> 

80 PR I NT " 4 C SPACE 3 ZE I CHEN CSPACE 3HOLEN CSP ACE5 39 

CSPACE 3B I LD CSPACE 3ZE I CHNEN" <133> 

PR I NT "5 CSPACE 3 DAT AS CSPACE 3EINBEBENCSPACE4 30 



90 

CSPACE 3PROGRAMMENDE" 
100 Z=50776 

1 10 PU*=" CSPACE31 3" 

120 NO*="CSPACE283" 

130 GOSUB 510: IF FL=1 THEN RETURN 

140 A=Z:POKE A,PEEK(A)OR 128 

300 GET G*:IF G*=""THEN 300 

310 IF G*="CUP3"THEN GOSUB 1020 

320 IF G*=" CDOWN3"THEN GOSUB 1120 

330 IF G*=" CRIGHT3"THEN GOSUB 1220 

340 IF G*=" CLEFT 3 "THEN GOSUB 1320 

350 IF G*=" CSPACE 3" THEN GOSUB 1420 

360 IF G*="*"THEN GOSUB 1520 

370 IF G*="1"THEN POKE A,PEEK(A)AND 127 

:GOTO 2000 
380 IF G*="2"THEN RUN 100 
390 IF G*="3"THEN 3000 
400 IF G*="4"THEN 4000 
405 IF G*="5"THEN 8000 
410 IF G*="6"THEN 6000 
420 IF G*="7"THEN 7000 
430 IF G*="8"THEN 30 
440 IF G*="9"THEN 5000 

450 IF G*="0"THEN PRINT" CCLEAR3" :END 
460 GOTO 300 
500 REM FELD ZE I CHNEN 

510 PRINT" CHOME3": FOR 1=1 TO 14: PRINT: NEXT 
520 FOR 1=1 TO 8: PRINT PU*: NEXT: RETURN 
1000 : 

1010 REM CURSOR NACH OBEN 
1020 IF PEEK(A-40)=32 THEN RETURN 
1030 POKE A,PEEK(A)AND 127:A=A-40 

:POKE A,PEEK<A)OR 128: RETURN 
1100 : 

1110 REM CURSOR NACH UNTEN 
1120 IF PEEK(A+40)=32 THEN RETURN 
1130 POKE A,PEEK(A>AND 127:A=A+40 

:POKE A,PEEK(A)OR 128: RETURN 
1200 : 



<199> 
<121> 
<157> 
<047> 
<020> 
<182> 
<153> 
<171> 
<054> 
<077> 
<216> 
<070> 
<123> 

<093> 
<093> 
<016> 
<028> 
<038> 
<042> 
<054> 
<221> 
<074> 
<176> 
<233> 
<243> 
<110> 
<179> 
<037> 
<160> 
<057> 



2010 POKE 214, 14: PRINT: PRINT TAB ( 14) "WELCHE 



<205> 
<138> 
<107> 
<157> 

<048> 
<238> 



<014> 
<206> 



1210 REM CURSOR NACH RECHTS 
1220 IF PEEK(A+1)=32 THEN RETURN 
1230 POKE A,PEEKCA)AND 127:A=A+1 
:POKE A,PEEK(A)OR 128: RETURN 

1300 : 

1310 REM CURSOR NACH LINKS 

1320 IF PEEK(A-1>=32 THEN RETURN 

1330 POKE A,PEEK(A)AND 127:A=A-1 

:POKE A,PEEK(A)OR 128: RETURN 
1400 : 

1410 REM SPACE-TASTE IM ZEICHENFELD 
1420 IF PEEK(A+1)=32 THEN POKE A, 174: RETURN 

<113> 
1430 POKE A,46:A=A+1:P0KE A, PEEK (A) OR 128: RETURN 

<247> 

1500 : <027> 

1510 REM "*" IM ZEICHENFELD <159> 

1520 POKE A, 42: IF PEEK(A+1)=32 THEN POKE A, 



<097> 
<083> 
<043> 
<052> 

<199> 
<183> 
<231> 



PEEK (A) OR 128: RETURN 
1530 A=A+l:POKE A, PEEK (A) OR 128: RETURN 

2000 REM ******************* 

2001 REM *ZEICHEN BERECHNEN* 

2002 REM ******************* 



<124> 
<179> 
<132> 
<075> 
<134> 



<110> 
<136> 
<127> 



CSPACE 3TASTE? CSPACE 3 " ; 
2020 GET G*:IF G*= H "THEN 2020 
2030 PRINT G*:6=PEEK(Z+2B)*B:K=0:A=Z 
2040 PRINT TAB (10>; NO*: PRINT TAB (10); NO* 

:PRINT"CUP4 3" 
2050 FOR J=l TO 8: FOR I=A+7 TO A STEP-1 
2060 IF PEEK(I)=42 THEN B (J)=B( J)+2tK 
2070 K=K+1:NEXT I : A=A+40:K=0: NEXT J 
2080 FOR I=51200+G TO 51207+G: K=K+1 : POKE 

:NEXT 
2090 PRINT TAB (10); NO* 

2100 PRINT TAB(15);B(1);B(2);B(3);B(4) 
2110 PRINT TAB(15);B(5) ;B (6) ; B<7) ;B<8) 
2120 POKE (Z+l 1 ) ,G/B: FOR 1=1 TO 8:B ( I )=0: NEXT 

:FL=0:GOTO 140 <115> 

<158> 



<024> 
<214> 
<251> 
<047> 
I,B<K) 
<062> 
<244> 
<009> 
<035> 



3000 REM ************** 

3001 REM * ROM-ZEICHEN* 

3002 REM ************** 
3010 GOSUB 510 



3020 POKE 214, 14: PRINT: PRINT TAB ( 14) "WELCHE 

CSPACE 3TASTE? CSPACE 3 " ; 
3030 GET G*:IF G*=""THEN 3030 
3040 K=0:A=Z: PRINT G*: G=PEEK(Z+28)*8 
3050 POKE 56334, PEEK (56334) AND 254 

:POKE 1 , PEEK (1) AND 251 
3060 FOR I=53248+G TO 53255+G 
3070 K=K+1:B(K)=PEEK(I) :C(K)=B(K) :NEXT:K=0 
3080 POKE 1, PEEK (DOR 4: POKE 56334, 

PEEK (56334) OR 1 
3090 FOR J=l TO 8: FOR 1=7 TO STEP-1 
3100 IF B(J)>=2tI THEN B<J)=B(J) -2tl 

:POKE<A+7~I) ,42 
3110 NEXT I:A=A+40:NEXT J 
3120 PRINT" CUP 3 "TAB C 1 0) ; NO* 
3130 PRINT TAB(15);C(1);C(2);C(3) ;C(4) 
3140 PRINT TAB(15);C(5) ;C (6) ;C(7) ;C (8) 
3150 FOR 1=1 TO 8:B(I)=0:NEXT:GOTO 140 

4000 REM ****»#******-m-*********##* 

4001 REM * EI GENES ZEICHEN HOLEN * 

4002 REM a************************ 

4010 GOSUB 510 

4020 POKE 214, 14: PRINT: PRINT TAB ( 14) "WELCHE 

CSPACE 3TASTE? CSPACE 3 " ; 
4030 GET G*:IF G*=""THEN 4030 
4040 PRINT G*:G=PEEKCZ+28)*8:K=0:A=Z 

4050 IF FL=1 THEN 4080 

4060 FOR I=51200+G TO 51207+G 



<200> 
<160> 
<240> 

<100> 
<128> 
<117> 

<216> 
<011> 
<030> 

<043> 
<23B> 

<205> 
<127> 
<211> 
<023> 
<049> 
<239> 
<088> 
<015> 
<090> 
<220> 

<080> 
<109> 
<097> 
<084> 
<22B> 



4070 K=K+1:B(K)=PEEK(I) :C(K)=B(K) :NEXT:K=0 <010> 



<207> 



<177> 

<097> 
<181> 
<153> 
<255> 
<025> 



4080 FOR J=l TO 8: FOR 1=7 TO STEP-1 
4090 IF C(J)>=2tI THEN C ( J)=C(J) -2tl 

:P0KE(A+7-I) ,42 
4100 NEXT I:A=A+40:NEXT J 
4110 PRINT" CUP 3"TAB( 10) ;NO* 
4120 IF FL=1 THEN 2080 

4130 PRINT TAB(15);B(1) ;B(2);B(3) ;B(4) 
4140 PRINT TAB(15);B(5) ;B(6);B(7) ;B(8) 
4150 POKE <Z+1 1 ) ,G/8: FOR 1=1 TO 8: B (I)=0: NEXT 

:GOTO 140 <1B7> 

5000 REM ##***H****##-ii-**-** <202> 

5001 REM * BILD MALEN * <007> 

5002 REM **************** <204> 

5010 PRINT" CCLEAR 3";: POKE 53280,0: POKE 53281,1 
:POKE 646,0: POKE 650,128 <176> 

5020 PRINT"CHOME=ZURUECK3" ' <211> 

5030 POKE 204,0: GET G*: IF G*=""THEN 5030 <029> 
5040 IF G*="CHOME3"THEN POKE 204,1: POKE 646,6 

:POKE 650,0: GOTO 40 <181> 

5050 C=PEEK(209)+PEEK(210)*256+PEEK(211) 

:POKE C,PEEK(C)AND 127: PRINT G*;:GOTO 5030 

<061> 

6000 REM ********»**#* 

6001 REM * SPEICHERN * 

6002 REM ************* 
6010 PRINT" CCLEAR3":PRINT:PRINT" CSPACE73 

SPE I CHERN CSPACE 3DES CSPACE 3 ZE I CHENSATZES " 

<072> 
6020 PRINT:PRINT" ( INPUT CSPACE3 N' CSPACE3, CSPACED 

WENN CSPACE 3 ZURUECK ) " <085> 

6030 PRINT:PRINT:PRINT" CSPACE23NAME CSPACE 3 DER 

CSPACE 3DATE I?" <202> 

6040 INPUT N* <166> 

6050 IF N*="N"THEN 40 <005> 

6060 OPEN 2,8,2,N*+ ,, f S,W" <22B> 

6070 CLOSE l:OPEN 1 ,8, 15: INPUT#1 ,OA 

:IF OAO0 THEN 6010 <160> 

6080 FOR 1=51200 TO 53248 <245> 



<056> 
<012> 
<058> 
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80 Zeichen 



6090 S7-=PEEK(I) 
6100 PRINT#2,S7. 
6110 NEXT I 
6120 CLOSE 2 s GOTO 40 

7000 REM ********* 

7001 REM * LADEN * 

7002 REM ********* 



<103> 
<089> 
<192> 
<248> 
<124> 
<187> 
<126> 



7010 PR I NT ■ CCLEAR 1 " : PR I NT : PR I NT " CSP ACE7 3L ADEN 

CSPACE 3EINSCSPACE3ZEICHENSATZES" <074> 
7020 PRINT: PRINT" < INPUT CSP ACE3 'N' , CSPACE3WENN 

CSPACE 3ZURUECK) " <065> 
7030 PRINT:PRINT:PRINT ,, CSPACE23NAMECSPACE3DER 

CSPACE 3D ATE I?" < 182> 

7040 INPUT N$ <146> 

7050 IF N*= M N"THEN 40 <241> 

7060 OPEN 2,8,2 f N$+" ,S f R" <203> 
7070 CLOSE Is OPEN 1 ,8, 15: INPUT#1 ,OA 

:IF OAO0 THEN 7010 <141> 

7080 FOR 1=51200 TO 53248 <225> 

7090 INPUT#2,SX <039> 

7100 POKE X,SZ <091> 

7110 NEXT I <172> 

7120 CLOSE 2sBOT0 40 <22B> 

8000 REM ****************** <226> 

8001 REM * DAT AS EINGEBEN * <237> 

8002 REM ****************** <228> 
80 1 PR I NT " CCLEAR 3 ": PR I NT : PR I NT " CSP ACE 3DATEN 

CSPACE 3FUER CSPACE DE I N CSPACE 3ZE I CHEN CSPACE 3 

EINGEBEN" <12B> 
8020 FOR 1=1 TO B:PRINT I "- CSPACE 3BYTE" 

: INPUT B<I):C(I)=B(I) <254> 

8030 IF B(I)>255 OR B(I)<0 THEN 1=1-1 <103> 

8040 NEXT:FL=l:GOSUB 40: GOTO 4010 <107> 

10000 REM **************************** <094> 

10001 REM * MASCHINENROUTINE-EINGABE * <239> 

10002 REM **************************** <096> 
10010 FOR 1=0 TO 58: READ A* <036> 
1 0020 HN= ( ASC CLEFT* (A* , 1 ) ) -48 ) * 1 6 

;IF HN>144 THEN HN=HN-112 , <105> 
1 0030 LN= ASC ( R I GHT$ ( A* , 1 ) ) -48 

sIF LN>9 THEN LN=LN-7 <099> 

10040 HN=HN+LN: POKE (828+1 ) , HN: NEXT: RETURN < 126> 

10100 DATA 78,A9,31 ,85,01, A9, 00, 85,64, A9 <240> 

10110 DATA D0,85,63,A9,C8,85,65,A2,10,A0 <016> 

10120 DATA 00, Bl ,62,91,64,CB,D0,F9,E6,63 <031> 

10130 DATA E6,65,CA,D0 f F2 f A9,37,85 f 01,58 <061> 

10140 DATA A9,12,8D,1B,D0,A9,94,8D,00,DD <083> 

10150 DATA A9,C4,8D,88 f 02,20,44 f E5,60 <153> 



Listing »Zeichen-Editor« 



Line 




fur den 





Ein kleiner Basic-Lader realisiert, wofiir 
man sonst viel Geld ausgeben muft: 
80 Zeichen pro Zeile 

Es werden 4 neue Befehle definiert, die das Darstellen von 
80 Zeichen moglich machen. Und das, ohne daB man lange 
programmieren muB. 

Beginnen wir mit dem Einfachsten: dem Eingeben. Dies 
diirfte keine Schwierigkeiten bereiten. Bevor man das Quellen- 
programm jedoch startet, sollte man es abspeichem, da es 
sich, vorausgesetzt, man hat keinen Fehler gemacht, selbst 
loscht. AnschlieBend kann man es mit RUN laufen lassen und 
wenn die Prufsumme stimmt, erscheint nach einigen Sekun- 



den einfach READY. Die neuen Befehle sind nun definiert und 
konnen angewendet werden. 

Diese Befehle lauten: 

O (fur »ON«): dieser Befehl bewirkt ein Einschalten des 

80-Zeichen Modus. Dabei wird auf hoch- 
auflosende Grafik umgeschaltet. 

C (fur »CLEAR«): der 80-Zeichen Bildschirm wird geloscht. 

W x,y,a$ der String A$ wird an Spalte x Zeile y ge- 

(fur »WRITE«): schrieben. 

x geht von bis 79, 

ygehtvon0bis24. 

F (fur »OFF«): Abschalten des 80-Zeichen Modus. 

So bewirkt zum Beispiel das kurze Programm: 
10 
20 C 

30 W 0,0 "64'ER DAS MAGAZIN FUR COMPUTER-FANS" 
daB der in Anfuhrungsstrichen stehende Satz in die linke obere 
Ecke geschrieben wird. AnschlieBend ruhrt sich nichts mehr 
und man kann durch die 'blinde' Eingabe von 'F wieder zum 
normalen Bildschirm zuruckkehren. 

A$ laBtsich auch durch einzelne Stringvariable ersetzen, die 
mit + verknupft werden, oder man kann auch eine normale nu- 
merische Variable verwenden. Allerdings durfen keine Variable 
mit dem Namen 0,C,W oder F verwendet werden. So ist zum 
Beispiel 0$,CG,WR$ oder ahnliches verboten. 

Nun einige detaillierte Angaben zum Programm selbst. Das 
Maschinenprogramm liegt im Bereich von $ 9000 bis $ 928F. 
Wer im Besitz eines Monitors ist, kann es direkt abspeichem 
und von der Diskette mit ,8,1 laden. Gestartet wird es dann mit 
SYS 36864. Wer das nicht will, der ladt einfach den Basic- 
Lader, der das Maschinenprogramm in den Speicher POKEf. 
Zwischen $ 9000 und $ 902D wird zunachst der Basic-Vektor 
umgesetzt, und der Anfang des Basic-Speichers hochgelegt. 
Zwischen $ 902E und $ 9044 beginnt nun die Befehlsdeko- 
dierung. Bei Erkennen eines Befehls wird verzweigt, anson- 
sten in die normale Interpreterroutine gesprungen. Bei dem 
Befehl 'O' wird zunachst in der Unterroutine von $ 9233 bis 
928E der Zeichensatz aus dem verdeckten Bereich $ D000 in 
den offenen Bereich $ C000 ubertragen. Der Bereich von $ 
0400 bis $ 0800 wird mit dem Code fur die Hintergrundfarbe 
gefullt. AuBerdem wird bei $ 9057 das Register # 648 umge- 
setzt, damit es auf dem Bildschirm kein farbliches Durcheinan- 
der gibt. Weiterhin wird selbstverstandlich der hochauflosen- 
de Grafik- Modus eingeschalten. Die Routine fur den Befehl 'C 
liegt zwischen $ 9081 und $ 90A3. Der Bereich der Bit-Map 
wird einfach mit 00 gefullt. 

Der Befehl F wird zwischen $ 906C und $ 907E ausge- 
fuhrt. Das Register 648 wird zurtickgesetzt, der hochauflo- 
sende Grafik-Modus ausgeschaltet und der normale Bild- 
schirm geloscht. 

Der Befehl, dessen Routine am langsten ist, ist der Befehl 
W. Er wird zwischen $ 90 A6 und $ 9230 bearbeitet. Zu- 
nachst werden die beiden Koordinaten x und y geholt und aus 
ihnen die Adresse der Bit Map berechnet, an der das erste By- 
te gesetzt wird. Dies geschieht zwischen $ 90A6 und 9135. 
Dann werden die einzelnen Zeichen des zu schreibenden Sat- 
zes geholt und ihr Code wird so umgerechnet, daB er mit der 
Stelle ubereinstimmt, an der das jeweilige Zeichen in dem nach 
$ C000 verschobenen Zeichen ROM steht. AnschlieBend 
durchlauft jedes der 8 Bytes, aus denen ein Zeichen definiert 
ist, die gleiche Prozedur. Das Byte wird geholt, jedes zweite Bit 
ausgefiltert, und die verbliebenen 4 Bits zusammengescho- 
ben. Das Zeichen ist jetzt nur noch durch 4x8 Punkte defi- 
niert. Jetzt mussen die entstandenen Nibbles noch in die By- 
tes der Bit Map gebracht werden. Dies geschieht mit einer 
EXOR-Verknupfung. Dabei steuert ein Flag, das in $ 9300 
steht, ob das Nibble in die linke oder die rechte Halfte des By- 
tes geschrieben wird. (Andreas Zell / rg) 
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1 

2 

3 

4 

5 

6 

7 

12 

13 



*#** SUPER LINE **** 
**** ANDREAS 

**#* 8500 NUERNBERB 90 

***♦ TEL 0911/31 47 90 







14 

1 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

2 




240 




260 
270 




REM 
REM 
REM 
REM 
REM 
REM 
REM *******************♦*****#♦#*#*** 

FOR T=36864 TO 37518: READ A: POKE T,A:B=B+A: NEXT 
IF BO87028 THEN PRINT"FEHLERCSPACEDINCSPACE3DENCSPACE3DATA 
CSPACE3ZEILEN" : END 
36864 : END 
DATA 169, 46, 141, 8, 3, 169, 144, 141, 9, 3 

169, 1, 133, 43, 133, 45, 133, 47, 133, 49 
169, 68, 133, 44, 133, 46, 133, 48, 133, 50 
169, 0, 141, 0, 68, 141, 1, 68, 141, 2 
68, 169, 143, 133, 56, 96, 32, 115, 0, 201 

15, 201, 70, 240, 14, 201, 87, 240 
67, 240, 12, 76, 231, 167, 76, 81 
108, 144, 76, 166, 144, 76, 129, 144 
51, 146, 234, 234, 234, 169, 64, 141 

, 68, 229, 169, 59, 141, 17, 208 

141, 24, 208, 76, 228, 167, 169, 4 

136, 2, 169, 27, 141, 17, 208, 169, 21 

24, 208, 32, 68, 229, 76, 228, 167, 169 

133, 252, 169, 0, 133, 251, 162, 0, 169 

251, 24, 165, 251, 105, 1, 133, 251 

, 105, 0, 133, 252, 201, 64, 240, 3 

137, 144, 76, 228, 167, 32, 155, 183, 

144, 3, 76, 72, 178, 138, 74, 133, 

, 41, 1, 240, 11, 234, 234, 234, 234, 169 

0, 147, 208, 5, 169, 0, 141, 
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360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 





540 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



79, 240, 
13, 201, 
144, 76, 




» 




169, 
141, 
141, 



2, 
24, 



0, 129 





76, 
80, 




290 


DATA 


1, 141, 


300 


DATA 


147, 32, 


310 


DATA 


224, 25, 


320 


DATA 


169, 0, 


330 


DATA 


162, 0, 




149, 
208, 




, 174, 24, 32, 158, 183, 134, 
176, 3, 76, 220, 144, 76, 72, 178 
253, 133, 254, 165, 252, 133, 
6, 253, 38, 254, 232, 224, 5, 208 
162, 0, 142, 1, 149, 165, 252, 141, 
14, 0, 149, 46, 1, 149, 232, 224, 3 
, 24, 165, 253, 109, 0, 149, 133, 
, 109, 1, 149, 133, 254, 24, 165, 
251, 133, 251, 165, 254, 105, 0, 133, 
162, 0, 6, 251. 38. 252. 232. 224. 3 






10l', , ™, ™, 

208, 247, 24, 165, 252 





221, 
132, 
144, 
144, 



174,' 
189, 




, 15B, 
, 135, 
133, 








6, 
6, 







1 



240 ] 



3 f 



, 64, 
, 234, 
76, 80, 



148, 
148, 
167, 





165, 
147, 



133, 
6, 



8, 234 





105, 




550 


DATA 


560 


DATA 


570 


DATA 


92 





161, 
4, 74, 69, 
74, 74, 69, 

74, 74, 74, 69, 255, 133, 
201, 1, 240, 8, 6, 255, 6, 



105, 32, 133, 
173, 36, 13, 48, 6, 
180, 32, 166, 182, 134, 
160, 0, 177, 253, 201, 
76, 109, 145, 201, 
76, 109, 145, 234, 

, 153, 0, 148, 200, 
145, 169, 0, 153, 

160, 0, 185, 
14, 76, 
0, 133, 254, 6, 

192, 133, 254, 162, 0, 142, 1 
41, 1, 133, 255, 161, 253, 41 
133, 255, 161, 253, 41, 16 

161, 253, 41, 64 

0. 147 




191 



198 



169, 




174 




173, 
6, 



<250> 
<152> 
<023> 
<078> 
<194> 
<252> 
<000> 
<245> 



<138> 
<113> 
<1B5> 
<082> 
<14B> 
<146> 
<113> 
<158> 
<131> 
<054> 
<045> 
<175> 
<23B> 
<231> 
<056> 




<243> 
<250> 
<144> 
<254> 

<086> 
<042> 
<169> 
<038> 




<247> 
<043> 
<218> 
<226> 
<240> 
<018> 
<249> 
<002> 
<082> 
<081> 
<080> 
<210> 
<225> 
<115> 
<0B3> 
<031> 
<111> 
<016> 
<187> 
<069> 
<081> 
<008> 
<076> 
<039> 
<083> 
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580 


DATA 


6, 2 


590 


DATA 


147, 


600 


DATA 


105, 


610 


DATA 


253, 


620 


DATA 


201, 


630 


DATA 


201, 


640 


DATA 


145, 


650 


DATA 


8, 1 


660 


DATA 


76, 


670 


DATA 


169, 


680 


DATA 


133, 


690 


DATA 


251, 


700 


DATA 


252, 


710 


DATA 


105, 


720 


DATA 


133, 


730 


DATA 


252, 


740 


DATA 


105, 


750 


DATA 


201, 



, , _ — , — , 251, 129, 251, 238, 1 

24, 165, 251, 105, 1, 133, 251, 165, 252 

0, 133, 252, 24, 165, 253, 105, 1, 133 
165, 254, 105, 0, 133, 254, 173, 1, 147 
8, 240, 3, 76, 175, 145, 173* 0, 147 

1, 208, 7, 200, 142, 0, 147, 76, 132 
169, 1, 141, 0, 147, 56, 165, 251, 233 

, 251, 165, 252, 233, 0, 133, 252, 200 

132, 145, 120, 169, 0, 133, 251, 133, 253 
208, 133, 252, 169, 192, 133, 254, 169, 51 
1, 162, 0, 161, 251, 129, 253, 24, 
105, 1, 133, 251, 165, 252, 105, 0, 1 
24, 165, 253, 105, 1, 133, 253, 165, 

0, 133, 254, 201, 200, 208, 222, 169, 55 

1, 88, 169, 0, 133, 251, 169, 4, 133 
162, 0, 169, 1, 129, 251, 24, 165, 251 
1, 133, 251, 165, 252, 105, 0, 133, 252 
8, 208, 235, 96 






<100> 
<192> 
<089> 
<164> 
<028> 
<020> 
<149> 
<193> 

<005> 
<141> 
<178> 
<227> 
<049> 
<046> 
<131> 
<236> 
<022> 
<145> 




Tastaturpieps 

Bei einem Besuch in einer Bank sah 



ich 



• it 



rt einige groBere Computer, die 



jeden Tastendruck des Bedieners mit 
einem Piepston quittierten. Dies wollte 
ich auch beim C64 nachvollziehen. 

Dies sollte unabhangig von einem anderen Programm sein. 
Daher meine Idee, die Interruptroutine des C 64 zu verandem, 
da diese 60mal in der Sekunde angesprochen wird, um die Ta- 
statur abzuf ragen. Dies konnte naturlich nur in Maschinenspra- 
che geschehen, da Basic zu langsam ware. Es ist auch mog- 
lich, schon vorhandene Programme damitzu erweitern. Denk- 
barsindzum Beispiel Textprogramme, Spiele, Programme zum 
Erlernen des Schreibmaschinenschreibens oder auch nur zur 
Simulation einer echtenSchreibmaschine, die ja auch nicht ge- 
rade gerauschlos arbeitet. 

Zu Beginn des Programms ($033C-$0348) wird der Inter- 
ruptvektor verbogen. Er zeigt jetzt auf unsere Routine 
($0349-$039E). Da der Computer alle 1/60-Sekunde die Ta- 
statur abfragt, und dazu einen Interrupt auslost, wird wnsere 
Routine ebenfalls so haufig angesprochen. In dieser Routine 
wird zuerst uberpruft ob uberhaupt eine Taste betatigt wurde. 
Dazu wird der Wert der Speicherstelle $CB in den Akkumulator 
geladen. Enthalt diese den Wert $40, so wurde keine Taste ge- 
druckt und es wird zur normalen Interruptroutine des C 64 ge- 
sprungen. Der Wert der Speicherstelle $CB wird zwischenge- 
speichert. Man kann damit bei einem 2. Durchlauf dieser Routi- 
ne feststellen, ob eine Taste nicht kurz zuvor (t <1/60 sec.) 
schon einmal betatigt wurde. Dies dient dazu, daf3 bei Tasten 
mit Dauerfunktion nicht unaufhorlich der Pieps ertont. Denn 
dies ist erstens entnervend und zweitens verzogert dies den 



Ablaut der Dauerfunktion so, da(3 man dabei einschlafen kann. 
Danach werden die verschiedenen Toneinstellungen vorge- 
nommen. Der Verzogerungsteil ($037F-$0387) dient dazu, 
den Ton hoher zu machen. Ansonsten ware nur ein Knacken zu 
horen. Sie konnen also selbst damit experimentieren und ei- 
nen fur Sie angenehmen Ton einstellen. Das Programm laBt 
sich durch Drucken der Run/Stop- und der Restore-Taste un- 

terbrechen und mit SYS 49152 reaktivieren. 

(Wolfgang Roth / rg) 



DATA 120,162,13,160,192,142,20,3,140,21,3,88, 
96 , 1 65 , 203 , 20 1 , 64 , 208 ,8,169 < 097 > 

DATA 203, 141 ,0, 193,76,49,234, 165,203,205,0, 
193,208,3,76,49,234,169,15 <227> 

DATA 141,24,212,169,3,141,5,212,169,242,141,6, 
212,169,26,141,1,212,169 <255> 

DATA 5,141,0,212,169,33,141,4,212,160,69,162, 

255,202,208,253,136,208,248 <105> 

DATA 169,0,141,4,212,141,5,212,141,6,212,165, 
203,141,0,193,76,49,234,0 <243> 



6 DATA 0,0 
10 FOR A=l 
20 READ B 
30 NEXT A 
40 IF S 



TO 99 
S=S+B :POKE 49151+A,B 



<021> 
<197> 
<137> 



<> 



<225> 
12111 THEN PRINT CHR*<147> 
: PR I NT " FEHLER C SPACE D I N C SPACE D DAT AS C SPACE D ! " 
- END <000> 

50 PRINT CHR*<147) : PR I NT" OK C SPACED ! " 

: SYS 49152 <046> 

60 PRINT"CDOWNDDIESCSPACEDISTCSPACEDDIEIISPACED 

VERSION, WELCHE C SPACE 3 AB C SPACE 1 *C000 " 

:FRINT" C DOWN: GESPEICHERTtSP ACE 3 WIRD C SPACED ! "; 

<130> 
70 PRINT"C SPACE ] UNTERBROCHEN C SPACE 1 W I RD " 

: PRINT" CDOWN3SIECSPACE1MITCSPACEDRUN/STOP 

C SPACE 38eC SPACE D RESTORE C SPACE 1 TASTENDRUCK 

C SPACE 3!" <248> 

80 PR I NT " I DOWN 1 RESTART I SPACE ] M I T C SPACE 1 S YS49 1 52 
[SPACED!" <114> 

90 END <218> 
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wieder 



Tastatur statt Joystick 

Beim Commodore 64 lassen sich alle Joystick-Funktionen 
auch uber die Tastatur steuern. Hier eine Liste der entspre- 
chenden Tasten: 



Joystick Port 1 


Joystick Port 2 


Feuer = SPACE 


Feuer = CTRL + »J« 


Links = CTRL 


Links = CTRL + »D« 


Rechts = »2« 


Rechts = CTRL + »G« 


Oben = »1« 


Oben = CTRL + CRSR RIGHT 


Unten = »§-« 


Unten = CTRL + »A« 




(Gunther Knopfle) 



Basic-Programme retten 

Ein versehentlich mit »NEW« oder durch einen RESET ge- 
loschtes Programm kann beim VC 20 durch Eingabe der fol- 
genden Befehle im Direktmodus wieder zuruckgeholt werden: 
POKE 46, PEEK(56) - 1 : POKE 45, PEEK(55) + 247 : CLR 

»Return« 

POKEPEEK(44) * 256 + PEEK(43) + 1, PEEK(44) »Return« 

63999 »Return« 

FOR I = PEEK(44) * 256 + PEEK(43) TO PEEK(46) * 256 

+ PEEK(45) : IF PEEK(I) OR PEEK(I + 1) OR PEEK(I 4- 2) 

THEN NEXT »Return« 

POKE 45, (I 4- 3) AND 255 : POKE 46, (I + 3) / 256 : CLR 

»Retum« 

Unter Umstanden erhalt man jetzt eine Fehlermeldung, aber 
das Programm ist jedenfalls wieder da! (Ralf Berle) 



ZeitlupefiirdenVC20 

LaBt man ein Programm auf dem Bildschirm auflisten, so lauft 
es in Sekundenschnelle durch. Mit dem Befehl POKE 
37877,0 werden nun alle Funktionen des VC20 extrem ver- 
langsamt, und man kann sich so ein Programm in Ruhe anse- 
hen. Durch Drucken einer beliebigen Taste wird das Listen 
noch weiter verlangsamt und mit der RUN/STOPTaste so lange 
angehalten, wie man die Taste gedruckt halt. 

Man kann den Befehl auch innerhalb eines Programms an- 
wenden urn zum Beispiel wahrend der Testphase bestimmte 
Abschnitte sehr langsam und somit nachvollziehbar ablaufen 

zu lassen. 

Mit POKE 37877,72 oder einfach durch gleichzeitiges 
Drucken von RUN/STOP und RESTORE wird wieder der Nor- 
malzustand hergestellt. (Johannes Conrad) 

Kommas mit INPUT lesen 

Haufig steht man vor dem Problem, einen Textstring mit IN- 
PUT zu lesen, der auch Kommas enthalten soil. Versucht man 
es mit einem normalen INPUT-Befehl, dann meldet der Compu- 
ter nur EXTRA IGNORED. Mit dem folgenden kleinen Trick 
kann sowohl der C 64 als auch der VC 20 Texte mit Komma 

einlesen. 
Unmittelbarvordem INPUT setzt man den Tastenzahler auf 1 

und POKEt ein Anfuhrungszeichen in den Tastaturpuffer. Es 

ergibt sich folgende Programmzeile: 

POKE 198,1 : POKE 631,34 : INPUT A$ 

Probieren Sie's aus. (Udo Stenger) 

Verstimmter C 64? 

Benutzt man fur ein Musikstuck die im Commodore 
64-Handbuch angegebenen High- und Low-Bytes, urn die To- 
ne zu POKEn, dann klingen sie haufig unrein oder »verstimmt«. 
Das vermeidet man, indem man die Low-Bytes neu festlegt. 
Man kann sie nach der folgenden Fbrmel berechnen: 
Lx>w-Byte = Frequenz * 17 - High-Byte * 256 
Ist das Ergebnis negativ, dann nimmt man ersatzweise diese 
Formel: Low-Byte = Frequenz * 17 - (High-Byte - 1) * 256 

(Roger Limberg) 

VC20-Tips 

Umschalten des VC 20 auf die Grundversion bei eingesteck- 

ter Speichererweiterung: 

POKE 642,16 : POKE 644,30 : POKE 648,30 : SYS 64824 

Mit POKE 55,30 : SAVE »(Name)« kann ein SAVE-Schutz 
umgangen werden, mit dem viele Programme geschutzt sind. 

Der Befehl POKE 36867,48 erzeugt eine zusatzliche Zeile 
unterhalb des normalen Bildschirms, die wahrend des gesam- 
ten Programms stehen bleibt und nur uber POKE-Befehle zu- 
ganglich ist. (Frank Pachollek) 



C 64 - Bildschirm scrollen 

Nach der Eingabe von SYS 59626 wird der gesamte Bild- 
schirm urn eine Zeile nach oben verschoben. Umgekehrt 
geht's aber auch, namlich mit SYS 59749. Damit werden alle 
Zeilen ab der aktuellen Cursorposition urn eine Position nach 
unten geschoben. Urn den ganzen Bildschirm abwarts zu 
scrollen, muGte man daher den Cursor in die Bildschirmzeile -1 
bringen. Und auch das kann man dem Computer tatsachlich 
vorgaukeln, und zwar durch POKE 214, 255 : SYS 59749 : 
SYS 58640. (Michael Wins) 

In C 64-Spiele gePOKEt 

Hier sind einige interessante POKE-Befehle, mit denen man 
jeden Highscore uberbieten kann. Doch Vorsicht, diese Be- 
fehle funktionieren nicht bei alien Versionen dieser Spiele. 

* Fort Apocalypse: »POKE 14697,0 : POKE 14760,0 : 
POKE 36366,0«. Danach hat man beliebig viele Hubschrau- 
ber, einen unendlichen Treibstoffvorrat, und der Bonus wird 

nie erniedrigt. 

* Hunchback: »POKE 9521,234 : POKE 9522,234 : POKE 
9523, 234«. Hier hat man unendlich viele Helden zur 

Verfugung. 

* Neptune: »POKE 7870,60«. Mit diesem POKE hat man auf 
einen Schlag 60 Taucher. 

Jungle Hunt: »POKE 2242,234 : POKE 2243,234«. Der 
Held hat unendlich viele Leben. (Frank Bastian) 



Basic-Programme retten 

Die Betriebssystemroutine »Angleich von Koppeladressen» 
ab Adresse 42291 ermoglicht ein schnelles und einfaches 
»UNNEW« nach einem versehentlichen »NEW« oder Reset: 
POKE 2049,1 : POKE 2050,1 : SYS 42291 

Danach kann zumindest wieder geLISTet werden. Ein voll- 
standiges »UNNEW» verlangt allerdings die Korrektur der Zei- 
ger auf den Beginn der Variablen und Felder. Dazu ware aller- 
dings die Kenntnis der Programmlange notwendig. Man kann 
sich aber behelfen, indem man das Programm notfalls in Tei- 
len auf dem Bildschirm aufLISTet und die einzelnen Zeilen mit 
der RETURN-Taste neu ubernimmt. (Gerhard Wagner) 



Spezialeffekt 

Wenn man beim C 64 in die Speicherstelle 53270 Werte 
zwischen und 15 schreibt (POKE 53270,x), kann man den 
Bildschirm urn bis zu sieben Bildpunkte nach links oder rechts 
scrollen lassen. Ist x kleiner als 8, dann scrollt der Bildschir- 
mausschnitt urn x Bildpunkte nach links, sonst urn x-8 Bild- 
punkte nach rechts. 
POKE 53270,8 stellt den Normalzustand wieder her. 

Dieser Trick laBt sich gut bei Action-Spielen als optische 
Untermalung beispielsweise einer Explosion einsetzen. 

(Michael Keukert) 
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Einige POKEs fur den VC 20 

Im folgenden ist X immer eine Zahl zwischen und 255. 
POKE 36865,X: Zentriert den Bildschirm in vertikaler Rich- 
tung. Man kann dadurch den Bildschirm nach oben oder un- 
ten verschieben. Der Normalzustand wird mit X=38 erreicht. 
POKE 36864,X: Dieser Befehl ist fur die horizontal Bildzen- 
trierung zustandig. Er verschiebt den Bildschirm nach links 
oder rechts. Der Normalwert ist X=12. 

POKE 37879,X: Mit diesem Befehl wird die interne Uhr 
des VC 20 beeinfluBt. Man kann sie schneller oder langsamer 
laufen lassen. Die letzte Moglichkeit ist besonders beim 
LISTen interessant. Druckt man namlich bei verlangsamtem 
Zeitgeber zusatzlich noch die CTRL-Taste, dann kann man 
sich einzelne Zeilen fast beliebig lange betrachten. POKE 
37879,72 stellt den Normalzustand wieder her. 

(Detlef Krischak) 

Miner 2049er 

Argert es Sie auch, daB Sie beim Miner 2049er nie die letz- 
ten Bilder vor Augen bekommen? Eigentlich ist das unnotig, 
denn es gibt einen einfachen Weg, urn in die letzten Spiel- 
stufen zu gelangen: 

Sie brauchen nur entweder die Leertaste bei der Tastatur 
oder den Feuerknopf am Joystick einige Zeit gedruckt halten. 
Die augenblickliche Spielstufe wird dann ubersprungen und 
Sie gelangen ins nachste Bild. (Armin Robi) 

Directory ohne Programmverlust 

Haufig mochte man sich das Directory einer Diskette anse- 
hen ohne das gerade im Speicher befindliche Programm zu 
zerstoren. Wenn man das DOS 5.1 nicht geladen hat, behilft 
man sich meist mit der zeitaufwendigen Zwischenspeiche- 
rung des Programms auf der Diskette. Es geht jedoch auch 
einfacher und schneller. Geben Sie einfach den folgenden 
Befehl ein: POKE 44, PEEK(46) 4- 1 

Damit wird der Basic-Anfang auf einen freien Speicherbe- 
reich gestellt. Sie konnen jetzt wie gewohnt mit »LOAD "$",8« 
das Directory laden und anschlieBend auflisten. 

Mit POKE 44,8 sind Sie dann wieder im eigentlichen Pro- 
gramm. (Heinzpeter Oelkers) 

Commodore Joystick verbessert 

Der Joystick VIC-1311 fur den VC 20 benotigt eine relativ 
groBe Hebelbewegung, urn die Kontakte zu schlieBen. Bei 
Spielen, die eine hohe Reaktionsgeschwindigkeit erfordem, 
ist diese Eigenschaft sehr ungunstig. Man kann jedoch recht 

einfach Abhilfe schaffen: 

Man entfernt die vier Schrauben an der Unterseite des Ge- 
hauses und hebt den oberen Teil des Joysticks mit der Platine 
vorsichtig ab. Nun wird die Platine an den Durchtrittsoffnun- 
gen der Schrauben mit je einer etwa 1 Millimeter dicken Un- 
terlegscheibe verstarkt. Die vier Unterlegscheiben konnen 
mit einem Tropfen Alleskleber (Vorsicht, nicht die Kontakte 
verkleben !) gegen Verrutschen gesichert werden. Danach 
wird der Joystick wieder zusammengeschraubt. Wenn Sie 
alles richtig gemacht haben und insbesondere keine Teile 
ubriggeblieben sind, dann werden die Kontakte des Joysticks 
nun bei erheblichen kleineren Hebelbewegungen ge- 
schlossen. (M. Kunze) 

Tips zum C 64 

Mit »POKE 808,225« wird die STOP-Taste ausgeschaltet 
und das Programm kann nicht mehr angehalten werden. 
»POKE 808,237« schaltet STOP wieder ein. 

Eine Repeat- Funktion fur alle Tasten wird mit »POKE 
650,1 28« aktiviert. »POKE 650,0« schaltet wieder auf den 
Normalzustand zuruck (Repeat-Funktion nur fur die Leertaste 
und die Cursortasten sowie bei DEL und INST). Mit »POKE 
650, 64« wird auch die Wiederholfunktion fur diese Tasten 
abgeschaltet 



»POKE 657, 128« verhindert die Umschaltung zwischen 
Text- und Grafikmodus mit der Kombination von Shift- und 
Commodore-Taste. »POKE 657,0« hebt dies wieder auf. 

Die Cursorfarbe kann mit »POKE 646,x« festgelegt werden, 
wobei fur »x« der entsprechende Farbcode einzusetzen ist. 

»PRINT PEEK(186) ergibt die Geratenummer des zuletzt 
angesprochenen Peripheriegerates. (Thomas Lopatic) 



i Tips fur den C 64 

Die Speicherstellen 57 und 58 enthalten die Zeilennummer 
der aktuellen Basic-Zeile. Die Abfrage geschieht mit PRINT 
PEEK(57) + 256 * PEEK(58). 

Mit »PRINT PEEK(1)« kann abgefragt werden, ob eine Taste 
an der Datasette gedruckt ist. Es gibt drei mdgliche Werte: 

7: Taste gedruckt, 
55: keine Taste gedruckt, 
39: Taste gedruckt, aber Programmlauf unterbrochen. 

Diese Abfragen sind fur die benutzerfreundliche Program- 
mierung von Kassettenoperationen recht nutzlich. 

(Wolfgang Meyer) 

VC20 — Grundversion simuliert 

Mit der folgenden kurzen Routine lassen sich die meisten 
Grundversions- oder +3 KByte-Programme auch mit einer 
8 KByte- Erweiterung laden und ausfuhren: 
POKE 648, 30 : SYS 64821 
POKE 4096, : POKE 44, 16 : NEW 

Danach wird das Programm ganz normal geladen und ge- 
startet. Da der Bildschirmspeicher durch die kleine Routine an 
der gleichen Stelle wie in der Grundversion liegt, sind die mei- 
sten Grundversions-Programme ohne weitere Anderungen 
direkt lauffahig. (Sven Jensen) 



Maschinensprache »geturkt« 

Es gibt eine einfache Methode, urn beim VC 20 mit minde- 
stens 8 KByte-Erweiterung aus einem ganz normalen Basic- 
Programm scheinbar ein Maschinensprache-Programm zu 
machen. 

Zunachst gibt man die folgende Zeile ein: 
10 SYS 4621 

Danach folgt im Direktmodus: 
POKE 43, 1 : POKE 44, 19 : POKE 4864, : NEW 

Keine Angst, die Programmzeile 10 ist nicht verloren. Jetzt 
muB das folgende kleine Programm eingegeben werden. 
10 FOR A = 4621 TO 4643 
20 READ D : S = S + D : POKE A, D 
30 NEXT 

40 IF S§(2039 THEN PRINT "FEHLER IN DATAS" 
50 DATA 169, 36, 133, 43, 169, 18, 133, 44 
60 DATA 169, 0, 141, 34, 3, 141, 35, 3, 32 
70 DATA 89, 198, 76 3 174, 199, 

Dieses Programm wird jetzt mit »RUN« gestartet. Anschlie- 
Bend wird im Direktmodus der Basic-Start verschoben: 
POKE 43, 36 : POKE 44, 18 : POKE 4643, : NEW 

Damit sind wir schon fast am Ziel. Jetzt kann ein beliebiges 
Basic- Programm geladen oder geschrieben werden. Die letz- 
te ausfuhrbare Zeile dieses Programms muB immer lauten: 

»(Zeilennummer)« POKE 43, 1 : POKE 44, 18 : END 

Urn das Programm abspeichem zu konnen, muB man jetzt 
noch POKE 43, 1 : POKE 44, 18 eingeben. Gibt man nun 
LIST ein, so sieht man nur 10 SYS 4621. Das auf solch wun- 
dersame Art zum »Maschinenprogramm« gewordene Basic- 
Programm kann jetzt ganz normal gepeichert, geladen und 
gestartet werden. Allerdings ist jetzt ein hervorragender List- 
schutz realisiert, zumal im Maschinenspracheteil des Pro- 
gramms noch die RUN/STOP-Taste gesperrt wird. Ein Ver- 
such, das Programm damit abzubrechen, fuhrt stets zu einem 
volligen »Absturz« des Computers. (A. Kaminski) 
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»PRINT AT« einfach gemacht 

Sehr oft kommt es vor, daB man eine PRINT-Ausgabe an ei- 
ne bestimmte Bildschirmstelle schreiben will. Ublicherweise 
arbeitet man in solch einem Falle mit Cursor-Steuerzeichen, 
was aber einerseits recht langsam ist und andererseits auch 
die Ubersichtlichkeit eines Programms nicht gerade erhoht. 
Eine Cursorsteuerung uber SYS-Kommando unter Ausnut- 
zung der entsprechenden Betriebssystem-Routine ist da 
schon komfortabler. Aber es geht auch viel einfacher. 

Will man beispielsweise einen Text in die 14. Zeile, 5. Spalte 
schreiben, so geht das auch folgendermaBen: 
POKE 214, 13 : PRINT : PRINT TAB(5);"Texf 
Adresse 214 enthalt namlich die Zeilenposition des Cursors. 
Urn diese allerdings richtig einsetzen zu konnen, mufi noch 
ein leerer PRINT-Befehl nachgeschickt werden. Der in 
Adresse 214 zu POKEnde Zahlenwert ist daher nicht die 
gewunschte Cursorzeile, sondern der urn eins verminderte 
Wert. (Volker Buhn) 



Sequentielle Datei als Basic-Programm laden 

Es sind eine Reihe von Anwendungen denkbar, bei denen 
aus einer sequentiellen Datei auf Diskette oder Kassette ein 
lauffahiges Basic-Programm erstellt werden soil (Datenfemu- 
bertragung, Umwandlung von Textfiles in Basic-Programme). 
Der folgende Einzeiler macht»s moglich: 
OPEN 1, $Gerat(, $Sekundaradresse(, "$Name)" : POKE 
812, 238 : POKE 781, 1 : SYS 65478 

Dieses Miniprogramm offnet das File Nummer 1 als Einga- 
befile (anstelle der Tastatur). AuBerdem wird der CLALL- 
Vektor des Betriebssystems auf ein »RTS« gesetzt, so daB 
beim Einlesen von Programmzeilen keine Files geschlossen 

werden. 
Deshalb werden nach Eingabe der obigen Befehlszeile von 

der ausgewahlten Datei solange Zeilen eingelesen und sofort 

im Direktmodus ausgefuhrt, bis die Betriebssystem-Routine 

CLRCHN aufgerufen wird (zum Beispiel durch einen Syntax- 

fehler in den gelesenen Zeilen oder durch GET#1, A$). 

Urn in den normalen Eingabemodus zuruckzukehren, muB 
nur »POKE 812, 239 : CLR« eingegeben werden. 

Zum Ausprobieren: Laden Sie ein beliebiges Basic- 
Programm und geben Sie danach im Direktmodus ein: 
OPEN 1,8,3,"LISTING,S,W" : CMD 1 : LIST : PRINT#1 : CLO- 
SE 1 

Dadurch wird das momentan im Speicher befindliche Pro- 
gramm als sequentielles File auf Diskette gespeichert 
Datasetten-Besitzer mussen den OPEN-Befehl abandem in 
»OPEN 1,1,2,"LISTING"«. 

Loschen Sie jetzt den Arbeitsspeicher mit »NEW«. Wenden 
Sie nun unseren Einzeiler auf die sequentielle »LISTING«Datei 

an: 
OPEN 1, 8 ,3, "LISTING,S,R" : POKE 812,238 : POKE 

781,1 : SYS 65478 

Bei der Datasette geben Sie stattdessen »OPEN 1,1,0, 
"LISTING" : ...« ein (das Zuruckspulen des Bandes nicht 
vergessen). 

Nun werden alle Zeilen des sequentiellen Listings eingele- 
sen, und Sie haben zum SchluB wieder das fertige Programm 

vor sich. 

Naturlich konnen Sie vor der Anwendung des Einzeilers 
auch bereits ein Programm im Speicher stehen haben. Da der 
Computer die Zeilen, die er aus dem sequentiellen File liest, 
genauso wie Direkteingaben behandelt, werden die neu gele- 
senen Zeilen mit dem bereits vorhandenen Programm 

gemischt. 
Es ist sogar denkbar, sich spezielle Befehlsfiles fur Stapel- 

verarbeitung zu erstellen. Der Computer kann dann ohne wei- 
teres Zutun die vordefinierten Aufgaben durchfuhren. 

(Florian Matthes) 



VC 20 Tips 

POKE 792, 34 : POKE 793, 3 - Nach Drucken der 
RESTORE-Taste fuhrt der Computer einen Kaltstart aus. 

SYS 65511 - Dieser Befehl schlieBt alle Dateien 
POKE 198, : WAIT 198, 1 - Der Computer wartet, bis eine 
Taste gedruckt wird. 

SYS 64802 - Es wird ein vollstandiger Kaltstart ausgefuhrt 
SYS 64818 - Kaltstart des VC 20, ist schneller als SYS 
64802 

POKE 818,34 : POKE 819,253 : POKE 37150,2 - Damit 
wird das Abspeichern von Programmen verhindert (Kopier- 
schutz). Nach der Eingabe von »SAVE« fuhrt der Computer ei- 
nen Kaltstart durch. (Thomas Hahn) 






Cursor abschalten 

Mit dem Befehl "POKE 788,210" wird beim VC 20 der Cur- 
sor abgeschaltet. Eine Rucksetzung in den Normalzustand ist 
mit RUN/STOP-RESTORE moglich. (Dietmar Roudaschl) 

Tips & Tricks 

MERGE fur C 64 / VC 20 

Hier ist eine einfache MERGE-Routine zum Verbinden 
zweier Basic-Programme. Sie kann sowohl fur die Floppy als 
auch fur die Datasette (auch mit Turbo-Tape) verwendet wer- 
den. Einzige Voraussetzung: Das zweite Programm muB hd- 
here Zeilennummem haben als das erste. Und so wird's 
gemacht: 

1. Sie laden das erste Programm. Dann geben Sie im Direkt- 
modus ein: 

PRINT PEEK(43), PEEK(44) 

Diese beide Zahlen schreiben Sie sich auf. 

2. Sie geben ein: 

POKE 43, (PEEK(45) + 256 * PEEK(46) - 2) AND 255 

(Return) 

POKE 44, (PEEK(45) + 256 * PEEK(46) - 2) / 256 
(Return) 

Laden Sie nun das zweite Programm. Danach geben Sie 
ein: 

POKE 43, (erste Zahl) : POKE 44, (zweite Zahl) (Return) 

Nun befinden sich beide Programme hintereinander im 
Speicher. (Michael Keukert) 

Funktionstastenbelegung unter Simons Basic 

Simons Basic bietet ja bekanntlich die Moglichkeit, die 
Funktionstasten mit beliebigen Zeichenketten zu belegen. 
Urn nun die Funktionstasten nicht jedesmal nach dem Ein- 
schalten neu belegen zu mussen, ware es sinnvoll, die Bele- 
gung auf Floppy abspeichern zu konnen. 

Die Funktionstastenbelegung ist bei Simons Basic in dem 
von Basic nicht erreichbaren Speicherbereich $C64D bis 
$C74B (50765 bis 51019 dezimal) abgelegt. Mit dem fol- 
genden kleinen Programm wird dieser Speicherbereich als 
Maschinenprogramm abgespeichert: 
10 INPUT "Filename "; X$ 
20 OPEN 5, 8, 5, X$ 4- »,P,W» 
30 A = 50765 : E = 51019 
40 H = INT(A / 256) : L = A AND 255 
50 PRINT#5, CHR$(L); CHR$(H); 
60 FOR I = A TO E 
70 PRINT#5, CHR$(PEEK(I)); 
80 NEXT I : CLOSE 5 

Mit LOAD "Name",8,1 kann die Funktionstastenbelegung 
nun jederzeit geladen werden, ohne ein eventuell vorhande- 
nes Basic-Programm zu zerstoren. (Uwe Schwarz) 

Hilfe fur »Turbo Tape« 

Das Programm »Turbo Tape» ist ja ein Segen fur alle diejeni- 
gen, die sich keine Floppy leisten konnen oder wollen. Es gibt 
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allerdlngs einige Maschinenprogramme, die nach dem Ge- 
brauch von >Turbo Tape» absturzen. 

Abhilfe: Nach dem Laden das Programm LISTen und den 
SYS-Befehl zu Anfang notieren. Nun SYS 64738 und danach 
den notierten SYS-Befehl eingeben — und schon lauft das 
Programm. (Andreas Klofanda) 

Basic-Programme retten 

Ein durch NEW oder durch einen Reset geloschtes Basic- 
Programm kann durch Eingabe folgender Zeilen im Direkt- 
modus wieder zuruckgeholt werden: 

POKE 46, PEEK(56) - 1 : POKE 45, PEEK(55) + 247 : CLR 
(Return) 

POKE PEEK(44) * 256 + PEEK(43) + 1, PEEK(44) 
(Return) 

63999 (Return) 

FOR I = PEEK(44) * 256 + PEEK(43) TO PEEK(46) * 256 
+ PEEK(45) : IF PEEK(I) OR PEEK(I + 1) OR PEEK(I + 2) 
THEN NEXT (Return) 

POKE 45, (I + 3) AND 255 : POKE 46, (I + 3) / 256 : CLR 
(Return) 

Diese »RettungsmaBnahme« funktioniert sowohl beim VC 
20 wle auch beim C 64. (Ralf Berle) 

Cursor steuern 

Das Betriebssystem des C 64 enthalt eine Routine, die man 
benutzen kann, urn den Cursor an eine beliebige Stelle zu 
setzen. Geben Sie doch mal folgendes ein: 
POKE 214, (Zeile) : POKE 211, (Spalte) : SYS 58640 : 
PRINT TEXT (Michael Keukert) 



Und noch ein Tip 

Der FORMULAR TOO COMPLEX - Error ist sehr unange- 
nehm, da sich das Programm danach oft nicht mehr listen laBt. 
Nach Eingabe von POKE 24,0 verhalt sich der Computer 
aber wieder normal. (Roger Limberg) 

Einige WAIT-Befehle 

Fblgende Befehle warten auf spezielle Tasten: 

WAIT 198, 1 wartet auf beliebige Taste 

WAIT 653, 1 Wartet auf Shift 

WAIT 653, 2 Wartet auf Commodore-Taste 

WAIT 653, 4 Wartet auf CNTRL 

(Michael Keukert) 

Tips & Tricks 

Listschutz 

Mochte man ein Programm mit einem einfachen Listschutz 
versehen, so verfahrt man folgendermaBen: 

1. Man erganzt die Zeile, ab der der Listschutz wirksam wer- 
den soil, mit ":REM". 

2. Man fahrt mit dem Cursor auf das zweite Anfuhrungszei- 
chen und druckt funfmal die Taste INST. 

3. Nun wird ebenfalls funfmal die Taste DEL gedruckt, so 
daB zwischen den Anfuhrungszeichen funf reverse T stehen. 
..list 

4. Zuletzt bewegt man den Cursor hinter das zweite Anfuh- 
rungszeichen und druckt die Tastenkombination SHIFT und L 
AnschlieBend RETURN nicht vergessen. 

Wenn nun versucht wird, das Programm zu listen, gelangt 
der Computer nur bis zu der Zeile, in der der Listschutz steht 
und bricht dann den Vorgang mit »Syntax Error« ab. 

(Thomas Lopatic) 

C64 beschleunigt 

Fur alle diejenigen C 64 - Besitzer, denen die Bewegung 
des Cursors bisher zu langsam war, gibt es einen speziellen 
POKE: 



Mit POKE 56325,5 wird der Cursor rasend schnell und 
flitzt bei Betatigung der Cursortasten nur noch so uber den 
Bildschirm. Wer's lieber gemutlicher mag, der sollte es statt- 
dessen einmal mit POKE 56325,255 probieren. 

(Oliver Bausch) 

Text und Grafik mischen: Textomat-Tip 

Bei Ihrem Software-Test des Textomat von Data- Becker 
(Ausgabe 9/84) wurde als gravierender Nachteil angefuhrt, 
daB bei einmal gestartetem Ausdruck keine Unterbrechung 
mehr moglich ist. Ich arbeite in Zusammenhang mit Textomat 
mit einem Epson-Drucker RX 80 F/T Urn den begonnenen 
Ausdruck zu unterbrechen, kann man einfach den ON-LINE- 
Schalter betatigen und den Drucker anschlieBend ausschal- 
ten. Sekunden spater meldetsich der Textomat am Bildschirm 
mit dem zu druckenden Text zuruck. 

Basic-Programme verbinden 

So manch C 64-Besitzer wird es schon geargert haben, 
da!3 sein Computer keinen MERGE-Befehl besitzt. Mit wenig 
Auf wand ist es aber dennoch moglich, Basic- Programme an- 
einanderzuhangen: 

1. Im Direktmodus »PRINT PEEK(43); PEEK(44)« eingeben 
und sich die Ergebnisse merken. 

2. Das erste Programm normal laden. 

3. Erscheint jetzt nach »PRINT PEEK(45)« eine Null oder 
eine Eins, dann geben Sie »POKE 43, 256 + PEEK(45) - 2 
: POKE 44, PEEK(46) - 1 : NEW« ein. Im anderen Fall wird 
»POKE 43, PEEK(45) - 2 : POKE 44, PEEK(46) : NEW« 
eingegeben. 

4. Nun wir das anzuhangende Programm geladen (Ach- 
tung! Das anzuhangende Programm muB die hoheren Zeilen- 
nummern haben). 

5. Jetzt POKEn Sie in die Speicherstellen 43 und 44 die 
zu Anfang gemerkten Werte. 

Beide Programme sind nun verbunden und konnen ganz 
normal gehandhabt werden. Wichtig bei der ganzen Prozedur 
ist, daB keine Variablen definiert werden, da das MERGEn 
sonst nicht richtig funktioniert. (Thomas Lopatic) 

POKEs fiir den C 64 

Mit POKE 775, 1 ist ein (fast) perfekter Listschutz aktiviert. 
Auch ein SAVE-Schutz ist mit wenig Aufwand moglich: POKE 
801,0 : POKE 802,0 : POKE 818,165. Nach diesen drei 
POKE-Befehlen kann das Programm weder auf Kassette 
noch auf Diskette kopiert werden. SchlieBlich gibt es noch ei- 
ne Moglichkeit, die RUN/STOPTaste abzuschalten, und zwar 
mit POKE 808,225. Wiedereinschalten ist mit POKE 
808,237 moglich. (Thomas Lopatic) 



GOTO Xfur VC20 

Viele schatzen es, viele wunschen es sich: Einen berech- 
neten GOTO-Befehl auf einen variablen Ausdruck anstelle 
einer Zeilennummer. Hier ist eine schnelle und sichere 
Methode, die nur 17 Bytes Speicherplatz benovigt. 

Schreiben Sie als erste Programmzeile 
1 rem"*********" (mindestens neun Sternchen). An- 
schlieBend geben Sie im Direktmodus ein: "PRINT PEEK(43) 
+ PEEK(44) * 256 + 6" (RETURN). 

Die daraufhin angezeigte Adresse notieren Sie sich bitte. 
Ohne Erweiterung muBten Sie den Wert 4103 erhalten ha- 
ben, mit 3 KByte Erweiterung 1031 und ab 8 KByte Erweite- 
rung 4615. 

Jetzt POKEn Sie ab der notierten Adresse bitte folgende 
Werte ein: 32, 138, 205, 32, 247, 215, 76, 163, 200. 

Wenn Sie nun die erste Zeile (mit dem REM) aufLISTen, se- 
hen Sie einige Grafikzeichen. Diese stellen ein kurzes Ma- 
schinenspracheprogramm dar, das einen mathematischen 
Ausdruck in einen ganzzahligen Wert umrechnet. Diese Zeile 
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mufJ immer die erste Programmzeile sein und darf auch nicht 
mehr geandert werden. Das Oblige Programm kann naturlich 
wle gewohnt editiert werden. 

Sie haben jetzt im Programm einen simulierten GOTO X - 
Befehl zur Verfugung, der mit SYS (Adresse) X aufgerufen 
wird. Fur Adresse mussen Sie die anfangs notierte Adresse 
einsetzen (Klammem nicht vergessen). Fur X kann ein belie- 
biger arithmetischer Ausdruck stehen wie zum Beispiel 5, A, 
A+2, C + D/SQR(9) Oder PEEK(5). 

Der neue Befehl hat im ubrigen die gleichen Auswirkungen 
wie der normale GOTO-Befehl. 1st eine Zeilennummer nicht 
vorhanden, gibt es daher ebenfalls einen »UNDEFD STATE- 
MENT ERROR». (Thomas Maul) 



POKEs fur den 64'er 

POKE 775,200 Listschutz ein 

POKE 775,167 Listschutz aus 

POKE 788,49 Run Stop ein 

POKE 788,52 Run Stop aus 

POKE 808,237 Run Stop Restore ein 

POKE 808,225 Run Stop Restore aus 

POKE 650,128 Dauerfunktion fur alle Tasten 

POKE 650,0 Dauerfunktion nur fur Space und Cursortasten 

POKE 650,64 Dauerfunktion aus fur alle Tasten 



INPUT ohne Fragezeichen 

Die Ausgabe eines Fragezeichens beim INPUT-Befehl kann 
durch Offnen einer Tastaturdatei unterdruckt werden: 
10 OPEN 1,0 : REM Tastaturdatei eroffnen 



20 INPUT #1,A$ : REM Einlesen von Tastatur ohne Fra- 
gezeichen 

30 REM Nicht vergessen, die Datei mit CLOSE 1 wieder zu 
schlieBen 

Zwei Einzeiler 

Zahlenkonvertierungen von Dezimal nach Hexadezimal 
braucht man recht haufig. Hier sind zwei Einzeiler zu diesem 
Thema: 

— Hex $X nach dezimal X 

10 x=0:fori=1tolen(x$):x0=asc(mid$( 
x$,i,1)):x=16*x+x0-48 + (x0(64)*7: 
next 

— Dezimal X nach hex $X 

10 x$=":fori = 1to4:x0=x/16:x=x- 

int(xO)M6:x$=chr$(48+x-(x(9)*7) 

+x$:x=x0:next (Volker Everts) 



Listschutz 

Einen verbluffenden Listschutz fur einzelne Zeilen erhalt 
man, indem man an die eigentliche Programmzeile einen 
REM-Befehl anhangt und dahinter in Anfuhrungszeichen eine 
Reihe reverser »T« gefolgt von einem Doppelpunkt und einem 
beliebigen Text schreibt. 

Geben Sie doch einmal folgendes ein: 
10 PRINT"BAUM":REM19reverse T: 
10 PRINT'BLUME" 

Wenn Sie dieses kleine Programm starten, schreibt der 
Computer »Baum«, listen Sie aber das Programm, so sehen 
Sie nur die Zeile 10 PRINT»BLUME«. (Roger Limberg) 
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Angerfiausen English 
"* Gerits Thrun 
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DATA BECKER 



BUCH 



DEI? BESTSELLER - BAND f 

64 Tips & Tricks, das mit uber 70.000 Exemplaren meistver- 
kaufte DATA BECKER BUCH, ist eine hochinteressante samm- 
lung von Anregungen zur f ortgeschrittenen Programmierung 
des COMMODORE 64, POKE'S und andere nutzliche Routinen, 
interessanten Programmer!. Aus dem inhalt: 3D-Graphik in 
BASIC - Farbige Balkengraphik - Definition eines eigenen zel- 
chensatzes - Tastaturbelegung - Simulation der Maus mit 
elnem Joystick - BASIC fur Fortgeschrlttene - C-64 spricht 
deutsch - CP/M auf dem COMMODORE 64 - DruckeranschluB 
uber den USER-Port - Datenubertragung von und zu anderen 
Rechnern - Synthesizer in stereo - Retten einer nicht ord- 
nungsgemaB geschlossenen Date! - Erzeugen einer BASIC-Zelle 
in BASIC - Kassettenpuffer als Datenspeicher - Multitasking 

auf dem COMMODORE 64-POKE's und die zeropage - GOTO, 
GOSUB und RESTORE mit berechneten zeilennummern, INSTR 
und STRING-Funktion - Repeat-Funktion fur alle Tasten. Alle 
Maschinenprogramme mit BASIC-Ladeprogrammen. 







*%**» 



noch 
mehr 



Ith/c 



BAND 2 



* ^vender 



^"^BBCKe,, 



BUCH 



64 Tips & Tricks ist eine echte Fundgrube f ur jeden COMMODORE 
64 Anwender. 64 tips & TRICKS, 1984, uber 300 Selten, dm 49 - 

JETZTNOCH MEHR TIPS & TRICKS - 
BAND 2 

Auch der zweite Band von 64 Tips & Tricks durfte sehr schnell 
ein Bestseller werden. Das Buch enthalt eine Fulle hochkarati- 
ger Programme, Anregungen und Routinen: ein umfangrel- 
ches Kapltel uber softwareschutz - Bef ehlserwelterungen 
und wle man sie macht - Tips & Tricks zur Programmierung 
von superspielen - Zeiger und deren Manipulation - mehr 
ubers interrupt-Handling mit vielen Beispielen - erweiterte 
Hardware-MGglichkeiten - Betriebssystem ins RAM kopieren 
und dort manipulleren - sowle viele weitere Programme, 
Bef ehlserwelterungen und nutzliche Routinen. Wer gerne pro- 
grammiert und mehr wissen will uber den COMMODORE 64, 
der braucht dieses neue Buch. 
64 tips & tricks Band 2, ca. 250 Selten, dm 39,- 

Erscheint: Dezember 84 





EIN DATA BECKER BUCH 



DER COMMODORE 64 
UND DER REST DER 

WELT, 220 Selten, 

DM 49,- 



DAS TRAIN INGSBUCH 
ZU SIMON'S BASIC, 

380 Seiten, DM 49,- 



COMMODORE 64 
FOR TECHNIK UND 
WISSENSCHAFT, 
300 Selten, DM 49,- 



DATA BECKERS 
CROSSE PROGRAMM- 
SAMMLUNG ZUM 
COMMODORE 64, 

250 selten, dm 49,- 

Diese und viele weitere DATA BECKER bucher gibf s im Buchhandel, im computer 
fachhandel und in den warenhausern. Dort gibts auch den kostenlosen, groBen 
DATA BECKER Katalog mit der groBen Buch- und softwareauswahl rund urns 
Thema computer. Katalog auch kostenlos direkt von DATA BECKER. 



DAS IDEENBUCH ZUM 
COMMODORE 64, 

240 Seiten, DM 29,- 
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4 Superspiele 



fur den COMMODORE 64 



Sie suchen mOglichst gute spiele fur 

moglichst wenig Geld? Bitte sehr! 

SUPER 4 bietet fur sage und schreibe 

riur 49 Mark vier absolute Topspiele: 

STAR CRASH - ein faszinierendes 

Weltraumabenteuer. 

spuk - ein tolles Kletter- und Leiter- 

spiel mit 29 verschiedenen Bildern. 

pancho - ein Actionspiel mit einem 

kleinen Mexikaner. 

CROWN - ein Spielautomat der 

besten Sorte mit Risikotaste und 

goidener serie. 

Alle Spiele sind bisher in Deutsch- 

land unveroffentlicnt und wurden 

von uns aus uber 100 spielen fur Sie 

ausgesucnt. 

Die super 4 Diskette mit den vier 

Superspielen gibt's jetzt bei Ihrem 

Handler fur nur DM 49 - 








ADVENTURES - UND WIE MAN SIE PROCRAMMIERT iSt ein faszinie- 

render Fuhrer in die f antastische welt der Abenteuerspiele. Hier 
I36t sicn ein erfolgreicher Autor in die Karten gucken; er zeigt, 
wie Adventures f unktionieren, wie man sie erfolgreich spielt und 
wie man eigene Adventures programmiert Der clou des Buches 
ist neben vielen fertigen Adventures zum Abtippen ein komplet- 
ter Adventure-Generator mit Editor, interpreter, utilities und 
Spiel dateien. 

Damit wird das Selbstprogrammieren packender Aben 
teuerspiele zum Kinderspiel. Naturlich enthalt dieses 
Superbuch auch fertige Adventures zum Abtippen. 

ADVENTURES - UND WIE MAN SIE PROGRAMMIERT, 

1984, uber 200 seiten, dm 39,- 



* Ober 500.000 Bucher und 150.000 Programme fur COMMODORE hat DATA BECkER verka 
DATA BECKER BOCHER und PROGRAMME gibts im Computer-Fachhandel, in den warenh^u 
sern und im Buchhandel. Jetzt auch in Englisch, Franzdsisch und Holiandisch in USA, 

KANADA, ENGLAND, FRANKREICH und BENELUX. 





Merowingerstr. 30 • 4000 Diisseldorf Tel. (0211) 31 0010 







_ 



